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INTRODUCTION 


In part 1 of this two part report the theory was developed to determine 
the forces acting on a body of revolution in a uniform stream. The body 
was inclined at an angle of attack sufficient for the flow to become 
separated and for vortices to form on the lee side. This part of the report 
describes the computer programs, VCF and ADYNF, which carry out the numerical 
calculations of part 1. VCF is the main body of the work which calculates 
the sectional normal force coefficient, c^, at stations along the body 
axis. ADYNF using the results obtained from VCF numerically integrates 
c (z) over the body length to obtain the normal force coefficient C^, and 
tfie moment coefficient ^ . Useful vortex patterns are available, and 
a line of separation alon£ the body can be determined. 



Abbreviations and Additional List of Symbols 


Abbreviations 


3DS 

2DUS 

b.l. 

r.s.l. 


t.b.l. 


b.b.l. 


t. r.s.l. 
b. r.s.l. 


three dimensional steady 
two dimensional unsteady 
boundary layer 
rear shear layer 
top boundary layer 
bottom boundary layer 
top rear shear layer 
bottom rear shear layer 


Sub- and Superscript 

( ) v point vortex contribution 

( potential flow contribution 


Numerical Integration Parameters 


(8±. r^) 


uCSj, t k> tj) 

v( 9 i> V 


set of points in r, t, 0 plane 
i = 0,1,2 ..., IDIM 
k = 0,1,2 .... KFINAL 
j = 0,1,2 ..., JDIM 

(u) 1 evaluated at point (0^, t^, r^) 

(v) * evaluated at point (0^, t^, r^) 
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METHOD OF SOLUTION 

The forces acting on a body of revolution at high angle of attatck are - 
calculated by the two complementary programs VCF, and ADYNF. Program :; , 5 . 
VCF calculates the normal force distribution on the body by first solving 
the two dimensional unsteady problem of a circular cylinder started impulsively 
from rest, and then by using the viscous cross flow analogy to relate the' 
cylinder drag to the normal force sectional coefficient. ADYNF then 
integrates the normal force distribution supplied by VCF to obtain the 
normal force and moment coefficients. A detailed description of the 
method is given in part 1 of this report. 


VCF PROGRAM DESCRIPTION 

The computer program was written in FORTRAN IV language, and 
was run on a CDC 6500 computer at Purdue University /under the MACE . 

operating system. VCF requires approximately 110000 octal words 
central memory initially, and CP time for an average run is approximately 
30 minutes. The program requires three peripheral disc files in r additiqn. 
to the input, output, and punch files. ’ - * ■ > - 


VCF PROGRAM INPUT DATA 

The input to VCF consists of the Reynolds number based on body 
length, the angle of attack, the body geometry, and program control 
data. 


Description of Input Decks 

The user must supply! the body geometry in the form of a FUNCTION 5 
subprogram named RZERO. The value of the dimensional body .radius r*, . 
should be returned as a function of dimensional axial distance along /. 
the body, z*. In addition ENTRY DRZER0 must return dr*/dz*. FUNCTION 
RZERO is a subprogram deck of VCF supplied by the user. 


CARD 1 
CARD 2 


3 £ 




RETURN 


CARD 3 


ENTRY DRZERO . CARD 4 : 

' '*"*"* ' * ‘ - ‘ } ./ il l - ’*4 

RZERO = (rate of change of body radius .with CARD 5 9V : 

respect to axial distance evaluated ( - ■ * r 

at ZSTAR) i •' ; , : .., 

RETURN CARD 6 

END CARD 7 

1 ■ • ' . ' ' ■ :• •. >• n .. 

Description of Input Cards 

CARD 1 - Identification . - Card 1 contains any desired identifying 
information in columns 1-80. 

CARD 2 - Flow parameters, body length . - Card 2 contains 3 real 
numbers, punched in a 12-column field. Columns 37-80 may be used in 
any desired manner. Card 2 contains the following. 


Columns 

Variable 

Value ; 

Description .; .. • >? . 

1-12 

AATACK 


Angle of attack in degrees 

13-24 

RE 


Re 3DS - V<t/v 

25-36 

LENGTH 


Dimensional body length*..-/#* 
same units as r*. T. . 

O ' 

CARD 3 - Remaining input data. - Card 3 contains three parameters .. 
particular to the finite difference and outer flow numerical computation, 
schemes. They are punched in a 12-column field. Columns 37-80 may be 
used in any desired manner. Card 3 contains the following. 

Columns 

Variable 

Value 

Description 

1-12 

, , DELT 

.125 

The time increment used in 
the finite difference solution 
to the boundary layer equations 

At k 

13-24 

RC 

.05 

Potential vortex core cutoff, .. 
radius, r 

c 

25-36 

SIGMA 

.05-1.0 

Empirical vortex flux factor,, o 
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CARD 4 - Program control - The three parameters punched in Card 4, 
the first right justified in a three column field, and the rest in 
twelve column fields, determine when the program is to STOP. All data 
necessary for further execution of the program is written on an 
auxiliary disk file. Card 4 contains the following. 


Columns Variable 

1-3 KFINAL 


13-24 s '■ •' TFINAL 


25-36 ZFINAL 


Value Description 

1-100 If KFINAL = K, where K is an 

integer count of the number of 
program time cycles completed, 
appropriate data is written on 
• : 1 . \ -an auxiliary disk file and the 
program STOPS. 

If TFINAL equals or exceeds 
. the central processor time used, 
data is written on file and the 
program STOPS. 

0. 0-1.0 If the nondimens ional distance 

along the body axis z, equals or 
exceeds ZFINAL data is written on 
file and the program STOPS. 


CARD 5 - Input/Output Control . - Card 5 contains 4 numbers each 
punched right justified in a 2-column field. These parameters specify 
which auxiliary disk files are to be used in input/output operations, the 
type of’ punched output, and the type of printed output. Card 5 contains 
the following. 


Columns 

Variable 

Value 

1-2 

J 

LR 

' 0,3,4 

3-4 ■ 

' LW 

3-4 

5-6 

' ' LEVEL 

5 

7-8 r 

: 5 KPUN' • 



Description 

: The continue data is READ from 
TAPE (LR) . If LR = 0 no data is 
read from the auxiliary disk fil< 

The continue data is WRITTEN on 
TAPE (LW). 

Printed Output Level. 

'Cards are punched every KPUN 
cycles. 
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VCF PROGRAM OUTPUT DATA 


‘ * ~ ^ ^ P^irftey ' butput- is processed by a standard T32 characters-per-line 
printer , puhcKed ‘cards are in Hollerith (026) code, 80 characters per f s j ^ >' 
cards. Binary coded data is written on auxiliary files, TAPE TAPE :>3, 
and TAPE %. The program printed output options are described below: ■■ 

LEVEL = 3 The program prints the dimensional body geometry as the 

radius as a function of axial distance. The maximum body 
diameter, the characteristic length, the fineness ratio, 
and frontal area, which are all functions of input body 
... r . .. geometry are printed. Remaining card input data is printed. 

■ ' s , Point vortex locations, velocities and strengths, are 

~ ; ’ ' printed. The pressure distribution around the two-dimensional 

* 1 cylinder corresponding to an axial station' along the three 
dimensional body is printed for each program cycle, as well 
v .. as values of shear and pressure drag. Data specifying 

the rear separation angle is printed for each cycle after 
* the backflow velocity has exceeded .1 of the free stream 
velocity. Elapsed computer execution time is printed at' 
the end of each program cycle. 

LEVEL =5 In addition to level 3 output, the boundary layer profile; 

1 ' ; for the top portion' of the cylinder is printed'.^ hr , 


The program printed output is illustrated by the sample case presented 
in Appendix IV. 

The program punched output consists of variables punched every 
program cycle, and of variables punched every KPUN cycles. Values of 
nondimerisionar axial distance, coefficient of drag, nondlmensional time, 
and the, number' of time cycles completed are punched every 'cycle v- i Vortex 
positions, velocities , : and strengths are punched every KPUN cycles.' 

The binary coded data output consists of initial boundary layer 
velocities, (reference 2), written on TAPE 1. Values of boundary layer 
velocities, vortex positions, vortex velocities, vortex strengths, 
program indices, and rear shear layer data are written on TAPE (LW) at 
the termination of each run. 
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VCF PROGRAM STRUCTURE 


VCF consists of a MAIN program, 18 SUBROUTINE subprograms.,. 5 FUNCTION 
subprograms, and 1 FUNCTION subprogram supplied by the user. Detailed 
descriptions of the MAIN program and of the subprograms are given in 
Appendix I. An example of a user supplied geometry description deck 
is given in Appendix IV for the case of an ogive cylinder. 


VCF AUXILIARY FILES 


VCF designates TAPE 5 as the input file, TAPE 6 as the output file, 
and. TAPE 7 as the punch file. In addition three auxiliary files are 
utilized for transfer of binary data. These files are designated 
TAPE 1, TAPE 3, and TAPE 4. 

TAPE 1 is used to store the initial boundary layer profile. TAPE 3 
and TAPE 4 are used to store intermediate information which is used to 
continue execution of the program. 

These auxiliary files must be rewound and stored on magnetic tape 
or some other permanent storage file at the termination of each run. 

To continue the run the files are obtained from permanent file storage, 
and execution is continued, the necessary data being READ from TAPE 3 or 
TAPE 4. 


VCF OPERATING INSTRUCTIONS 


The program deck, geometry input deck, and data deck are loaded 
in the following sequence: job card, system control cards, end-of- 
record card, program deck, geometry input deck, end-of-record card, 
data deck, end-of-file card. The geometry input deck and the data deck 
are described in the Program Input Data section. 
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ADYNF PROGRAM DESCRIPTION 


The computer program was written in the FORTRAN IV language, and 
was run on a CDC 6500 computer at Purdue University under the MACE 
operating system. ADYNF requires 55000 words of central memory and 
takes about 10 seconds to run. 


ADYNF PROGRAM INPUT DATA 


The input to ADYNF consists of body geometry, angle of attack, 
characteristic parameters supplied by VCF, and values of c n and z, 
also supplied by VCF. The number of knots and their locations, used 
to approximate functions in the evaluation of the normal force and 
moment coefficients are also read in. 

Description of Input Decks 


The user must supply the body geometry in the form of a FUNCTION 
subprogram named RZERO. The value of the dimensional body radius r*, 
should be returned as a function of dimensional axial distance along 
the body, z*. In addition ENTRY DRZERO must return dr*/dz*. FUNCTION 
RZERO is a subprogram deck of ADYNF supplied by the user. For a given 
geometry the deck used in ADYNF is identical to that used in PROGRAM VCF, 
and in fact, the same deck may be used for both programs 


Deck Setup ; 

FUNCTION RZERO (ZSTAR) CARD 1 

RZERO * (body radius at ZSTAR) CARD 2 

RETURN CARD 3 

ENTRY DRZERO CARD 4 

RZERO «' (Rate of change of body radius with CARD 5 

respect to axial distance evaluated 
at ZSTAR) 

RETURN CARD 6 

END CARD 7 
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Description of Input Cards 


CARD 1 - Identification . - Card 1 contains any desired identifying ' 
information in columns 1-80. 


CARD 2 - Flow parameters, characteristic dimensions . - Card 2 
contains 6 real numbers, punched in a 12-column field. Columns 73-80 
may be used in any desired manner. Card 2 contains the following. 


Columns 

Variable 

Value 

Description 

1-12 

AATACK 


Angle of attack in degrees 

13-24 

LAMBDA 


Moment arm, X 

25-36 

LENGTH 


Dimensional body length, £ 

37-48 

F 


Fineness Ratio, f 

49-60 

AW 


*\j 

Characteristic length, a 

61-72 

RW 


Maximum Radius, d/2 

CARD 

3 - Number of 

knots, number of 

data points. - Card 3 contains 

2 integers right justified in a 4 column field. The number of knots 
refers to the number of cubic polynomials used to obtain an approximating 
function to the data. A cubic polynomial approximates the data between 
two knots. Card 3 contains the following. 

Columns 

Variable 

Value 

- Description 

1-4 

NOKNOT 

4-5 

The interval is divided into 


3 or 4 segments depending on 
whether NOKNOT is 4 or , 5 . The 
endpoints of the segments are 
the knots. 

5-8 LX The number of data points, z, 

C D (z) , 

CARD 4,5 ... - Axial distance z. Coefficient of drag Cjj(z). - Card 

4,5 ... contain values of z and Cjj(z), these cards are punched by PROGRAM 
VCF. The two numbers are punched in the first two 12-column fields of 
each card. ^ . 
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CARD LAST - Knot positions , - The last card in the input deck to 
ADYNF contains the location of the knots. Since the nondimensional body 
length; is 1.0* X; these knot values should be: 0, values contained , in. the 

interval [0,1], and 1. The knot values are punched, in a 12-coluinh field-: 
6 to a card. The last card contains the following. 


r V # 

Columns , 

r.j Variable. •. 

... Value 

, Description ... 

1-12 

XI (1) 

0 

Location of first knot 

13-24 

XI (2) ; 

0<( )<1 

Location of 2nd knot 

Ti 1. 




; 

XI (NOKNOT) 

1 

Location of last knot 


Y * •• ADYNF' PROGRAM OUTPUT DATA 

Program ADYNF output is printed output processed by a standard 132 
character-per-line printer. The program printed output consist of: - 

(1) The given data [z, c^Cz)] 

(2) The ^number of ’ knots : v; ' 

ya' 'Vfv; .• 

(3) ^ r Initlai f knot locations ‘ * * ■ # 

(4) Optimized knot locations (reference 4) 

(5) The cubic coefficients used to approximate the- data in each interval 

(6) ..:,; The errors involved in approximating the data 

(7) The data 1 point z and the approximation c (z) 

(8) Values of z at .05 increments from 0 to 1.0 and the value of the 



(9) Intermediate output from the integration subroutine CADRE (see 
Appendix II for details) 

- - f 1 

(10) r The approximation to the integral c n (z) dz - . The absolute error 

r ' •" 0' 

■ and' an indication as to the types of singularities involved in the v 
integration, (see APPENDIX II - CADRE for further details) ■ 

(11) The normal force coefficient 

(12) Similar output for the calculation of the moment coefficient 


li: 



ADYNF PROGRAM STRUCTURE 


ADYNF is a main program which references the subprograms RZRO, FIT, 
SPLINEB, CADRE and the user input geometry subprogram RZERO. SPLINE, 
references 3 and 4, and CADRE are "canned" routines obtained from Purdue 
University’s computing center. SPLINE is a deck of subprograms. ADYNF 
calls SPLINEB which references other subprograms in the SPLINE deck. 
Those subprograms are considered to be "black boxes," and are not 
explained in detail in this report. However listings of the SPLINE 
deck are included in APPENDIX II. Listings of ADYNF, FIT, and RZRO 
are given in APPENDIX III. ADYNF designates TAPE 5 as input file 
and TAPE 6 as output file. No other files are used. 


ADYNF OPERATING INSTRUCTIONS, 


* ■ ’ * v * . J:-/. '■ -• •: ;• 

The program deck, geometry input deck, and data deck ;N are loaded in ,, w 

the following sequence: job card, system control cards, erid-of-record 

card, program deck, geometry input deck, end-of-record card, data deck, 
end-of-file card. The geometry input deck and the data .deck are 
described in the Program Input Data section. 
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APPENDIX I 


PROGRAM VCF AND SUBPROGRAM DESCRIPTIONS 


This appendix contains a brief outline of the purpose, method, and use of 
program VCF and its subroutines. The principal variables and constants 
in each are listed, and identified as input or output data. The subprograms 
are listed in alphabetical order. 
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PURPOSE : * 


METHOD : 


PROGRAM VCF 


To calculate the local normal force distribution coefficient 
c n (z), to predict the line of separation 8 g Cz), and to 
provide the point vortex distribution, (x^, y ^) . 


VCF proceeds in discrete steps of time At^, usually given 
the value .125. The index K, initially 6, is incremented 
by 1 for each step in time, thus K=1 for t^ = t Q + At^, 
where t Q denotes the initial time. The boundary layer 
equations are integrated using a finite difference solution 
developed by M. G. Hall, reference 1. The initial velocity 
distribution is supplied by Wundt’s solution* reference 2, 
to the impulsive start of \a circular cylinder^, Once the 
initial conditions have been calculated the subroutines 
\ used in the computations are no longer necessary. By 
writing all of the pertinent data on a. FILE, In this 
instance either TAPE3 or TAPE4, arid then replacing the 
inert subroutine with a dummy subroutine IC, and reading t 
the data back in, the central memory requirement can be 
reduced after the first few minutes of computation time. 
Further, since, the boundary layer solution employs a 
finite difference method, storage must be allocated for 
a finite difference mesh or grid. However, since separation 
soon occurs, values at mesh points greater than the separation 
angle are no longer needed. By stopping execution, saving 
the necessary data, redimensioning the boundary layer grid, 
and then reading the data back in, and continuing execution, 
the central memory requirements can be reduced even further. 
For the case of the’ ogive cylinder the central memory 
requirement could be reduced from 110000 words to 65000 words. 
The boundary layer grid is DIMENSIONED in the main program 
and values of u 1 *-, and vi are passed as parameters to sub- 
programs with the DIMENSION parameters IDIM, JDIM. Thus if 
boundary layer grid values are no longer, being used because 
they are in separated flow the variables U, W, UT, and UB are 
appropriately DIMENSIONED in the main program. 


The boundary layer finite difference scheme is applied either 
to the top half of the cylinder or the bottom. The entire 
boundary layer solution could be accomplished by a call 
to BLBOX with appropriate values of velocity on the upper 
surface being supplied, and then another call to BLBOX 
with lower surface values. However, since the solution is 
basically a small time one, and the flow is expected to 
be symmetrical, it is only necessary to apply the finite 
difference solution to half of the cylinder. ' 


Once the velocity distribution in the boundary layer is 
known, and a separation angle has been determined, 
vorticity is introduced into the outer flow in the form 
of point vortices. Due to the symmetry of the problem 
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separate vortex arrays were created for the vortices 
born from the top separation angle, and for those coming 
from the bottom separation angle. In addition when 
backflow velocities were great enough to generate vorticity 
on the rear portion of the cylinder two additional top 
and bottom arrays were created for those point vortices 
originating from the rear separation angles. 

Bernoulli's equation yields the pressure distribution 
on the cylinder, and numerically integrating C p cos 0 
(0 < 0 < 2tt) , gives the drag. 

The point vortices existing at time t^ are convected with 
the fluid and at time t^ + ^ = tk + At^ the tangential 
velocity on the surface (boundary conditions for the boundary 
layer equations), will be altered. A new boundary layer 
velocity profile is calculated, a new separation angle 
determined, and the cycle is repeated. When t^ corresponding 
to z = 1.0 is reached, the program stops. 

Input ; 

INFO Data identification 


AATACK 

RE 

LENGTH 

DELT 

i 

RC 

SIGMA 

KFINAL 

TFINAL 

ZFINAL 

lr; 

LW 

KPUN 

LEVEL 


Angle of attack 

Reynolds number based on body length 
Dimensional body length 
Finite difference time step 
Vortex core cutoff value 
Empirical vortex flux factor 
Program cycle termination index 

Program central processor time termination value 

Nondimens ional length termination value 

READ continue data from TAPE(LR) if LR=0 no 
binary continue data is READ 

WRITE continue data on TAPE(LW) 

Vortex positions, velocities, and strengths are 
punched every KPUN cycles 

Printed output level 



Output : 

PI 


DTOR 

RTOD 

DMAX 

AW 

F 

SA 

RE 

KS 

KR 

KT 

KB 

KRT 

KRB 

INITAL 

NDIM 

IDIM, 

JDIM 

PI2 

SQRTPI 


ir ■ - i 

tt/180 

180/ir 

Maximum body diameter 

Characteristic length a, of the 2DUS flow 
Fineness ratio, f 
Frontal area, S 

Re 2DUS 

Initially equal to 1000, KS is set equal to K 
when the first point vortex is born from the 
b.l. 


Initially equal to 1000, KR is set equal to K 
when the backflow velocity exceeds a value of 
.1 

Equal to the number of t.b.l. vortices in the 
flow at time t^ 

Equal to the number of b.b.l. vortices in the 
flow at time t^ 

Equal to the number of t.r.s.l. vortices in the 
flow at time t^ 

Equal to the number of b.r.s.l. vortices in the 
flow at time t^ 

The initial dimension of the 6 grid in the b.l. 

Dimension of the vortex arrays, and of the drag 
array. The number of program cycles must not 
exceed NDIM 

b.l. grid dimension' (8 , r ) 
i - 1, 2, ..., IDIM 1 3 

j - 1, 2, .... JDIM 


2n 




SQA 

Square of the sine of the angle of attack 

SRE 

^ ^DUS 

ISYM 

Symmetric mode index 
ISYM = 1, symmetric mode 
ISYM = 0, asymmetric mode 

THTASYM 

Condition on 0 S , if THTASYM is greater than 
0 S , the program goes into the asymmetric mode 

K 

Program time index, initially set equal to 
0 at t Q , K is incremented by 1 for each 
successive step in time 

KTS 

Index used in the continuation of a run, 
if KTS >_ K the b.l. grid is calculated 

T . ’ 

f ‘‘v, , ’ * ^ 

V . • 

TI 

t o 

ZHAT 

A 

.* Z 

AK 

Radius at time t^, a(tk) 

iAKTI 

a(t Q ) v .. 

AKDOT 


CDPI 

Initial drag coefficient due to pressure = 
2tt a(t Q ) a(t Q ) 

KMINUS1 

K-l 



- ; < T H * • ' - C k -1/2 

AK Radius at time t k , a(t k ) 

AKDOT a(t fc ) 

c . . AADOT a(t k > a (t k ) 

AKSQD [a(t k )] 2 

ZHALF z(t k _ 1/2 ) 

AKPHALF a ( fc k _i/2 ) 

AKDOTPH a(t fc 

KTTEMP Temporary storage of the value of KT 
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KBTEMP Temporary storage of the value of KB 
U Boundary layer velocity, u(r,tj £ ,S) 


DGAMMA 


(D, t 




SMALLM 

“k 






e 

• s 




CDST 

- 

( 

x sin 8 

) 

de 

0 

<8 < n 

s 



f 9 S 




CLST 


T COS 0 

de 

0 

<8 < IT 

C5 


ISEP 

TRAPD 

TRAPL 

CDSK 


TT 

TB 

TRT 

TRB 

X, 

Y 

XDOT, 

YDOT 

GAMMA 

XB, 

YB 


An integer denoting the element in the 9^ 
array, the value of which is the separation 
angle 

Trapezoidal sum used in the evaluation of CDST 
and CDSB 

Trapezoidal sum used in . the evaluation of CLST 
and CLSB 


Viscous contribution to the drag coefficient 
2ir 

^ * t sin 8 a(t) d8 


Array of t.b.l. vortex diffusion times 
Array of b.b.l. vortex diffusion times 
Array of t.r.s.l. vortex diffusion times 
Array of b.r.s.l. vortex diffusion times 


Arrays of t.b.l. vortex coordinates 


Arrays of t.b.l. vortex velocities (u , v°) 


Array of t.b.l. vortex strengths 
Arrays of b.b.l. vortex coordinates 


XDOTB, 

YDOTB 


Arrays of b.b.l. vortex velocities 



• ' GMAB v. Array of b;b.l. vortex strengths- 


Y * x r .) 


XRT,.-/ 
YRT ' 

XRDOT, 

YRDOT 

GMRT 

XRB, 

YRB 

XRDOTB, 

YRDOTB 

GMRB 


•"CDSB 


CLSB 


THETA 


i 


THTASR 

IPUN 

CDPK 


Arrays of t.r.s.l. vortex coordinates 

Arrays of t.r.s.l. vortex velocities 
Array of t.r.s.l. vortex strengths 
Arrays of b.r.s.l. vortex coordinates 

Arrays of b.r.s.l. vortex velocities 
Array of b.r.s.l. vortex strengths 

'x 'sin 0 d0 


,v 


A 


x cos 0 d0 


TT < 0 < 2tT 

s 


7T < 0 < 2tT 

s 


0» 

0 


THETAS ' 0 0 < 0 < TT 


s 


THETAS B 0 


s 


; TT <0 < 2tt 


Punch index 

IPUN >_1 , punch vortex arrays 
IPUN < 1 , no vortex array punch 

Drag coefficient due to pressure = 

; ' -2tt. ^ 

^ 1 C cos 0 a(t) d0 


SUBPROGRAMS 
CALLED : 


. CDK Drag cpefficient, Cp(t) 

CDN Local normal force distribution coefficient, c n 

TIME Execution time 

*BLB0X, DQI, DRZRO, NONDIM, PDRAG, RSEP , RVTX, RZRO, 
SECOND, VEL, VM, WRIT 
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FUNCTION AN 


PURPOSE: 

METHOD: 

USE: 


CALLED 

FROM: 

REMARKS: 




To calculate the coefficients a , b , c 

n n n 

Given the b.l. velocity distribution the coefficients 

a , b , c are calculated as outlined in reference 1. 
n n n 

Function reference to 


AN (L, N, IDIM, JDIM, U, W) 


Input : 

L, 

N 

IDIM, 

JDIM 

U 

W 

DS 

DZ8 

DZSQ2 

DZSQ4 

Output : 


The b.l. grid point 


b.l. grid dimension 
i = 1,2, .... IDIM 
j = 1,2 JDIM 






u( 9± , t k , rj 

u( V V 


See BLBOX 


AN 


Coefficient a in the finite difference solution 
of the b.l. equations 


BLBOX 

Alternate ENTRY points* to AN, -are BN, and CN 
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SUBROUTINE BLBOX 


PURPOSE: 

METHOD: 

USE: 


To numerically integrate the unsteady b.l. equations 

A finite difference method is employed to solve the 
two dimensional unsteady boundary layer equations, 
(reference 1). 

CALL BLBOX (SMALL M, DGAMMA, TAWD, TAWL, U, W, UT, UB, 
s IDIM, JDIM, MODE) ' ' 


Input : 
U 
UT 
UB 

UTNBIG 

UBNBIG 

IDIM, 

JDIM 

MODE 


The b.l. velocity distribution 
2-dimensional storage away for 

2-dimensional storage away for 

tt < 6 . < 2ir ■ 

1 


u * e i’ t k-l’ 

u(6 l> Vl* 7 j> 

u(6 i' C k-1* 7 j> 


An array the elements of which are the boundary 
conditions (t.b.l.), for the finite difference 
scheme 

Boundary conditions (b.b.l.) 

b.l. grid dimension (0., r.) 

i = 1,2 IDIM 1 J 

j = 1,2, . . . , JDIM 

If MODE = 1 appropriate t.b.l. u* values 
will be input to the b.l. grid. If MODE = 2 
b.b.l. ui values are input 


KTS Index used in the continuation of a run, 

if KTS K the b.l. grid is calculated 


AK a(t fc ) 

AKSQD [a(t k )] 2 

AKDOT a(t k ) 

AKPHALF a(t fc 

IXTRSET An integer denoting the element in the S 
array, the value of which is the t.b.l. 
separation angle 



IXBRSET An integer denoting the element in the S 
array, the value of which is the b.b.l. 
separation angle 


NBIG 

An integer defining the last element 
AN array 

/• * ,‘i > • 

in the 

Output: 

*/• Vf p 


DELS 

A0 used to define the b.lV grid 0^^ 

= e i + A0 

DS 

Defining the' elements of the array DS as, 

A0. + ^ = 0. . - 0^ allows for the grid defined 

to have a variable mesh spacing. J “ 

S 

Array of 0^ values 

U-MJAD 

•sKdB 

ST 

Array of t.b.l. 0^ values 

r Vo 3% '4U-5 

SB 

Array of b.b.l. 0^ values 

- ay j.KAy 

DZ 

b.l. grid spacing Ar = .14 " 


DZ2 

1/2 a 7 ‘- • •■..jjiTT 


DZSQ2 > 

1/2 Ar 2 


DZSQ4 

1/4 Ar 2 : ' • . . . ’?.• «r. . - • < •*.. 


ZN 

Array of r values 


U 

The b.l. velocity distribution u(0^. 

c k> v 

UT 

2-dimensional storage array for u(0., 
ir < 0_^ < 2 tt 

v v 

UB 

2-dimensional storage array for u(0 , 

TT < 0^ < 2lT 

c k- 7 j> 

TAUS 

TAUNEW 

Successive estimates of the surface 
shear t 


NCYCLE 

The number of iterative cycles, (reference 1) 

DUDR 

(u) 


TAW 

T 


TAWD 

t sin 0 evaluated for values of the 

0 grid 

TAWL 

t cos 0 evaluated for values of the 

0 grid 
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THETA 


e 



THETAS 

0 0 < 0 < 7T 

s 


THETASB 

• 0 IT < 0 < 

s 


SMALLM 

Location of vortex born from b.l., m^ 


DGAMMA 

< r) >t 

CALLED 

FROM: 

VCF 


SUBPROGRAMS 

CALLED: 

IC, FREEVTX, POTFLOW, TRID, RITE 

REMARKS: 

The b.l. 

subroutine determines the velocity profile for 


0 < 0 < e (0 < 0 < tt) , or for 0 < 0 < 0 (tt < 0 < 2tt) . 

s s s s 

Thus if the flow is assumed to be symmetric, a finite 

difference solution is required only on the top half of 

the cylinder. If the flow is asymmetric, BLBOX is called 

twice with appropriate top or bottom grid values and 

boundary conditions being input. 


i, . 




23 



FUNCTION CPC 


PURPOSE: 

METHOD: 

USE: 


To calculate C 

P 

The equations for evaluating C 

P 

Function reference to 


are given in part 1 


CPC (THTA) 


Input : 


TB 

' XRT ' ' 

TRB 

; i .tt. U . - 

X, 

Y 

XDOT, • 

YDOT 

GAMMA See VCF 

XB, 


XDOTB, 

YDOTB 

GMAB 

XRT, 

YRT 

XRDOT, 
YRDOT ' 


GMRT 

XRB, 

YRB 

XRDOTB, 

YRDOTB 
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GMRB 



CALLED 

FROM: 

SUBPROGRAMS 

CALLED: 

REMARKS: 


K 

KT 

KB See VCF 

KRT 

KRB 

XX X coordinate of the point on the cylinder 

surface at which C is to be evaluated 
P 

YY Y coordinate of the point on the cylinder 

surface at which C is to be evaluated 
P 

NDIM . Dimension of the vortex arrays 
Output : 

PHIT * #t = ($, t ) V + ($, t ) P 

PHIVT (*, ) V 

PHIPT (*, ) P 

PSIKR2 u 0 

O 

CPC Pressure coefficient 

VCF 

r 

PV, FREEVTX, POTFLOW 

The time derivative of the potential function, see 

part 1, is computed by first determining the terms c due to 
the point vortices adding to that the potential 

flow solution of a changing radius cylinder in a uniform 
flow ($ >t ) P . 
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FUNCTION DN 


PURPOSE: 

METHOD: 

USE: 


CALLED 

FROM: 

SUBPROGRAMS 

CALLED: 


'!■ 


To determine the coefficient d , (reference 1) 

n 

The equations for the calculation of d^ are given in reference 
Function reference to 


1 


DN (L, N, IDIM, JDIM, U, W) 

Input : 

L, The b.l. grid point (0 , r.) 

N 1 3 

IDIM, b.l. grid dimension (0., r.) 

JDIM i = 1,2 IDIM 1 J 

j = 1,2, ...-, JDIM 

U t k » 

W v(0 ± , t k , r^) 

DS 

DZ2 see BLBOX 

NBIG 

DT2 1/2 Atfc 

Output : 

DN Coefficient d in the finite difference solution 

of the b.l. equations 

BLBOX 

UM, US, UL, AN 
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PURPOSE: 
METfiODi ~ r '" 


USE: 


/, i ... 


CALLED 

FROM: 

SUBPROGRAMS 

CALLED: 

REMARKS: 


To evaluate 


SUBROUTINE DQI 
2ir 

C cos 0 d0 
P 


‘ 0 

Numerical integration using Simpsons rule 
X ? h 

f(x)dr ^ — [f(x ) + 4f(x ) + f(x )] 

i L i O 


CALL DQI (FCT , CK, K, N, ISYM) 
Input : 


FCT 

K 

N 


ISYM 


Output : 
CK 


The name of the EXTERNAL FUNCTION SUBPROGRAM 
used; PDRAG to evaluate drag, PLIFT to 
evaluate lift. 

Program time index, see VCF 

An even integer which determines the integration 
stepsize h. The front of the cylinder is 
divided into 2N equal parts, the front here 
being -60° < 0 < 60° , and the back is divided 
into 8N equal parts. The stepsize, 
h = (60/N) (ir/180) . 

An integer either 0 or 1. A value of 1 denotes 
a symmetric flow, and the limits of integration 
are (0,ir) and the value of the integral is 
doubled. A value of 0 denotes an asymmetric 
flow and the limits of integration are (0,2tt) 


Approximation to 
Simpson's Rule 


2tt 


C cos 0 d0 by 
P 


VCF 


PDRAG 

The value of N used in all testing was 6. 
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SUBROUTINE FREEVTX 


PURPOSE: To calculate vortex induced velocities 

METHOD: Each point vortex and its image induce a velocity at 

every other point in the field. The distance: between 
the field point and the vortex location is determined 
and induced velocity calculated, see part 1.. Summing 
the effects of all the point vortices yields ; the vortex 
induced velocity. • 

USE: CALL FREEVTX (PSIK1X, PSIK1Y, PSIK1R, IA) 

Input : 

IA An integer value from 1 to 5. 

IA = 1 Field point is a t.b.l. vortex 

IA = 2 Field point is a b.b.l. vortex 

IA = 3 Field point is on the cylinder 
LA = 4 Field point is a t.r.s.l. vortex 

IA = 5 Field point is a b.r.s.l. vortex 

TT 

TB 

TRT 

TRB 

X, • • 

Y 

XDOT, See VCF 

YDOT 

GAMMA 

XB, 

YB 

XDOTB, 

YDOTB 

GMAB 

XRT, 

YRT 
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XRDOT, 

YflDOT 


i-S.V • 

;GMRT 



' *XRB , 
fYRB 


i ^ ‘ , * * \ 

v ’ii »? 

•« • i ., rv 

i .- -i ■'■ 

. . XRDOTB , 
, YRDOTB 

See VCF 


~GMRB 


> f V •;*■ 

; ;:kt 


5 * ■ *) 7 ' * . 

" J : Ikb 

v / ; ' • * • . 

;*?■*.-• - 

, ; -TRT 


■■’ ' . ' 

KRB 


, 

ALPHA 

An integer denoting a particular point vortex 
the coordinates of which is the point at 
which the velocity is being calculated. 


■ XX 

X coordinate of the point vortex at which 
the velocity is being calculated. 


YY 

Y coordinate of the point vortex at which the 
velocity is being calculated. 


Output: 



PSIK1X 

(v‘) V 


PSIK1Y 

-(u°) V 


PSIK1R 

(u:> v 

CALLED 

FROM: 

BLBOX , 

VEL, CPC 

SUBPROGRAMS 
CALLED : 

PSX 




SUBROUTINE IC 


PURPOSE : 
METHOD: 

't 

USE.:.-. . 


CALLED 

FROM: 

SUBPROGRAMS 

CALLED: 

REMARKS: 


To calculate the initial boundary layer profile for 
the problem of a circular cylinder started impulsively 
from rest 1 .’ ' r ‘ - v -‘‘ : 

Wundt's solution for the impulsive start of a circular 
cylinder, (reference 2). • * 

CALL. IC, ; (AKTI, U, IDIM, JDIM, MODE) r . ; v; 

: Input : ; ' : 

AKTI a(t ) 

■ - v>9, . v. ■*•••• ?,«. 

- .IDIM, b.l. grid, dimension (0.., r.) . ; 

JDIM "i - 1,2 ... , IDIM 3 

j = 1,2 .... JDIM - 

4 # 

i “ 4 ' * \ l ' 

MODE MODE = 1 0 < 0, < tt 

• ' MODE = 2 r> ir •< 0^‘< ' ' ' :y ‘ *• : -v • 

Output : ’ 

u J 

UTNBIG An array, the elements of which-, are the boundary 
conditions (t.b.l.)_for the finite difference 
scheme. u(0^, t Q , r^) 

. i - JDIM 0 < ; 0 tt * mv„ 

UBNBIG Boundary conditions (b.b.l.) u(0^, t Q , r ^ ) 

j .« JDIM TT <. 0,,. <;.2ir 

• • . • t - -1 i- . - 

BLBOX 


PHIO, PHI1, ZTA001, ZTA0011 , ZTA02A1 , ZTA02B1 .-. . 

- . i. v - 

Subroutine IC is called once from BLBOX when t^ = t Q (K=l) . 
A dummy subroutine may be substituted thereafter, reducing 
the central memory requirement. The IC .subroutine and the 
subprograms called from IC are listed in Appendix lb. 



SUBROUTINE NONDIM 


PURPOSE: 


METHOD: 


USE: 


CALLED 

FROM: 

SUBPROGRAMS 

CALLED: 


To calculate the characteristic radius a,, the maximum 
diameter d, and the reference area S, for the input body 
geometry. 

* 

Values of r (z ) are obtained from RZERO, the FUNCTION 
° 

SUBPROGRAM input by the user, for values of z along the 

^ ss 

body axis. The maximum r Q (z )» doubled, is d. For a 
closed end body (r^CJl) = 0) the characteristic radius is 

obtained by using the trapezoidal rule to approximate the 

P * ^ 

integral l/£ r Q (z )dz = a. For open ended geometries 

* 0 
(r Q (£) # 0), then a = d/2. 

CALL NONDIM (DMAX, RW, AW, F,. S, L, PI) 


Input : 


L Dimensional body length, H 

PI TT. 


Output : 


DMAX 
RW ' 
AW 
F 
S 

VCF 

RZERO 


Maximum body diameter, d 
d/2 

Characteristic length, a 

Fineness ratio, l/d 
2 

Frontal area = ird /4 
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PURPOSE: 

METHOD: 

USE: 


CALLED 

FROM: 

SUBPROGRAMS 

CALLED: 

REMARKS: 


FUNCTION PDRAG 

To calculate C (0) cos 9 
P 

Function reference to CPC 
Function reference to 
PDRAG (THETA) 

Input : 

THETA 8 
Output : 

PDRAG • C (0). cos 0 
P 

VCF 

CPC 

See DQI 
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SUBROUTINE POTFLOW 


PURPOSE: 


METHOD: 

USE: 


To calculate the velocity at a point in the outer flow 
due to the uniform inviscid flow about a circular cylinder. 

Evaluate potential flow solution at a field point 

CALL POTFLOW (PSIKXP, PSIKYP, PSIKRP, IA) 


Input : 


ALPHA Point vortex index 

AKSQD [a(t k )] 2 


IA An integer value from 1 to 5 

IA = 1 Field point is a t.b.l. vortex 

IA = 2 Field point is a b.b.l. vortex 

IA = 3 Field point is on the cylinder 
IA = 4 Field point is a t.r.s.l; vortex 

IA = 5 Field point is a b.r.s.l. vortex 

X, 

Y 

XDOT, 

YDOT 


GAMMA 

XB, 

YB 

XDOTB, See VCF 

YDOTB 


GMAB 


XRT, 

YRT 

XRDOT, 

YRDOT 


GMRT 

XRB, 

YRB 
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XRDOTB, 

YRDOTB 


See VCF 


CALLED 

FROM: 


GMRB 
Output : 

PSIKXP (v°) P 

PSIKYP — (u° ) P 

PSIKRP (u°) P 

BLBOX, VEL, CPC 
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PURPOSE: 

METHOD: 

USE: 


CALLED 

FROM: 


' SUBROUTINE PSI 

To sum the induced vortex velocity 

The equations for the induced velocity of a point vortex 
are given in part 1 . 

CALL PSI (X, Y, GMA, NDIM, KI , • KF , IA, IB, SUM, SUM1, TK) 
Input : , 

AK a(t k ) 

AKSQD [a(t k >] 2 

XX, Coordinates of the point at which the velocity 

YY is being calculated 

X, Input arrays of point vortex locations 

Y 

GMA Input array of point vortex strengths 

NDIM Dimension of the input arrays 

KI, Sum over KF - KI + 1 vortices 

KF 

TK Input array of vortex diffusion times 

RC r 

c 

IA Field point index (See FREEVTX) 

IB Integer which determines if a point vortex 

is to be ignored in the sum 

Output : 

r \j 

SUM v° induced by input vortex array 

SUMl -u° induced by input vortex array 

FREEVTX 
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PURPOSE: 
METHOD: 
USE: ; - » * 


SUBROUTINE PV 

To calculate the vortex contribution to C 

P 

Equations for the calculation of are given in part‘1 

CALL PV (X, Y, XDT, YDT, GMA, NDIM, KI, KF, SUM, TK) 

Input : . •*' , . ■ .7; ?; •. ,. H 

AK a(t ) 

k 

AKSQD . [a(t k )] 2 » - r , 

XX, Coordinates of the point on the cylinder 

YY at which C is to be evaluated 

P 

X, Input arrays of point vortex locations 

Y ■ ' 

XDT, Input arrays of point vortex velocities 

YDT 

GMA Input array of point vortex strengths 

NDIM Dimension -of the input arrays 

1'. KI, Sum over KF - KI + 1 vortices - 

KF 

TK Input array of vortex diffusion times 

RC r 

c 

Output : 

SUM $, due to input vortex array 


CALLED 

FROM: 


CPC 



PURPOSE: 

METHOD: 


USE: 


CALLED 

FROM: 

REMARKS: 


SUBROUTINE RITE 

-■ r-tdA.-. • v *- v . . ; . . . . : . 

To print the b.l. . velocity distribution 

... ENCODE is used to create execution time FORMAT statements, 

so that only the velocity profile for O'i<,'0 <, 9 is printed. 

s 

CALL RITE (MT, IDIM, JDIM, U, ZN, NX, S; ;DEG; ZHAT, DELS, K) 

Input : « /•:; 

MT An integer value equal to 1 or' 2 

. ( If MT = 1 the initial velocity profile is printed 

' '~ v V If MT = 2 the velocity profile at t^ is printed 

IDIM, b.l. grid dimension (0., r.) 

"• : ; JDIM i = 1,2, ..., IDIM - 1 

j = 1,2 JDIM 

r ' “ ( WV 

ZN Array of r_j values j = 1,2, ..., JDIM 

NX An array containing a count of the number 

1 of iterative cycles* (reference 1) 

S Array of 0^ values i =1,2, . . . , IDIM 

DEG Array of 0 values in degrees 

ZHAT z 

DELS A0 

K Program cycle index 

BLBOX, IC 

i _ ' -"■■H 

When MT = 1, u is output, when MT = 2 u is output. 
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PURPOSE: 

METHOD: 


USE: 



CALLED 

FROM: 


SUBROUTINE RSEP 


3:‘VstHV 


To determine the r.s.l. separation angie 


0 f - 0 f 
s m 

0 - e f 

o m 


r r 

0 - 0 
m- s 

0 r . - 0 

m o 


(see part 1) 


CALL RSEP (THTASF, THTASR, THTA, UBL ,>• TNTX1 *, INITAL, MODE) 


Input : 

THETASF: 

THTA 

UBL 

INTX1 


b.l. separation angle, 0 

* „ s 


; 1 ■*{ 


Array of 0^ values i =1,2^ . i , INITAL 

Array of u° (0^) values i-;-- 1,2', INITAL 

An integer denoting the element- bf the 
THTA array which ‘ is ‘ the separation angle 


INITAL The inital dimension of the b.l.Vlgrid , 


MODE 


(0 ± = tt) i = INITAL 


MODE = 1 
MODE = 2 


0 < 0 . < tt 
TT < 0^ < 2lT 


Output : 


THTASR 


r.s.l. separation angle, 0 


VCF 
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SUBROUTINE RVTX 


PURPOSE: 
METHOD : 


USE: 


To calculate the position and strength of the r.s.l. 
vortices 

Subroutine RSEP has determined the r.s.l. separation 
angle. The strength of the vortex that would be born 
is T = -At u° 2 / 2 . If this value of Y does not exceed 
.1 it is stored in arrays. The next time cycle (t^ + ^) , 
a new 0* is calculated, and if the new separation angle 
exceeds the previous one then the previous point vortex -i 
is aborted. However, if the new 0* is less than the 
previous value of 0^, the previous point vortex is lumped 
together with the one now in question. After five time 
cycles (t^ < t < £^+5 ) y or when the lumped vortex strength 
becomes .1 or greater, the lumped vortex is placed into 
the outer flow. The angle at which it is placed is the 
average of the five previous separation angles. See part 
1 for equations. 

CALL RVTX (X, Y, GMA, THTASR, THTASM, THTAS , UZZ, UZZSQ, 
GAMA, MODE, KRN, N, NF, IFLAG, BMATL, NDIM, TK) 


Input : 



AK 

a(t k ) 


DELT 

At k 


THETAS 

6 s 


THTASR 

e r 

s 


THTASM 

0^ at the time previous to r.s.l. vortex birth 

THTAS 

Storage array 

for 0 r values 
s 

UZZ 

Storage array 

for u° values 

0 

UZZSQ 

Storage array 

for u° 2 values 

0 

GAMA 

Storage array 

for T values 

MODE 

MODE =1 0 

MODE =2 7 T 

< 0 < 7 T 

< 0 < 27 T 

N 

An integer count of the number of time cycles 
completed since the previous r.s.l. vortex was 
placed in the outer flow. 
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CALLED 

FROM: 


NF Lump parameter, usually NF = 5. When 

N = NF a lumped point vortex is placed in 
i . .-L h the outer flow 

NDIM Dimension of vortex arrays 

TK An array of vortex diffusion times 

Output : 

Lumped vortex strength 

If IFLAG(N) = 0, the point vortex aborted 
If IFLAG(N) = 1, the point vortex is lumped 

Coordinates of r.s.l. vortex born 
Strength of r.s.l. vortex born 


GMATL 

IFLAG 

X, 

Y 

GMA 


SMALLM 

KRN 


m 


rk 


The KRN 


th 


element of the r.s.l. vortex arrays 


VCF 


SUBPROGRAMS 

CALLED: FREEVTX, P0TFL0W 
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PURPOSE: 

METHOD: 

USE: 


CALLED 

FROM: 

SUBPROGRAMS 
CALLED : 


FUNCTION RZRO 


To calculate the nond imens ional body radius r as 
a function of nond imens ional distance z along the 
body axis. 

The dimensional quantities are multiplied by characteristic 
dimensions. 

Function reference to 

RZRO (ZHAT, L, RW) 

o.' . . 

Input : 

ZHAT z 

L 

RW 

Output : 

RZRO 

VCF 

RZERO 


i 


d/2 


r 

o 
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FUNCTION UAPRX1 


PURPOSE: 

METHOD: 


USE: 


CALLED 

FROM: 

REMARKS: 


To calculate a first approximation to u(6 

“< 9 i+i>. V V * u( 9 i+i’ Vi’ V + «<® 

See reference 1, for further explanation. 
Function reference to 


1+1’ V r j ) 
i- v V - u(6 i’ 


t 


k-l* 


UAPRX1 (L, N, IDIM, JDIM, U) 


Input : 

L, The b.l. grid point (0 , r.) 

N J 

IDIM, b.l. grid dimension (9., r ) 

JDIM i = 1,2, .... IDIM J 

j = 1,2, .... JDIM 

U U( 6 i’ Vl* V 

Output : 

U First approximation to u(0^ + ^, r j) 

BLBOX, DN 

Alternate ENTRY points to UAPRX1 are US, UL, and UM 
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SUBROUTINE ,'VEL . 


PURPOSE: j- j 
METHOD:- t 


USE: 


CALLED 

FROM: 

SUBPROGRAMS 

CALLED: 


To calculate the velocity -of the point vortices 

;Each point vortex h^s a. velocity due to the •.uniform flow 
around a circular cylinder, plus the velocity induced by 
all of.., the other point vortices; 

CALL VEL (X, Y, XDT, YDT, NDIM,KI, KF, IA) 

Input : • / . , > ‘ = : 

X, Input arrays of vortex locations \ 

Y 

NDIM Dimension of the vortex arrays 

KI, / KF KI 1 is the number of vortices 

KF in an array • '1 

IA Vortex field point index (see FREEVTX) 

Output : 

XDT, Output arrays of vortex velocities 

•/ YDT . . ; /U' ■ •• ■* s •■• ' > Vi* 4 ' -••• 

VCF, RVTX . . 'ft. , •••" 

FREEVTX, POTFLOW 



PURPOSE: 

METHOD: 

USE: 


CALLED 

FROM: 

SUBPROGRAMS 

CALLED: 

REMARKS: 


SUBROUTINE VM 


To calculate the coordinates of the point vortices 

at time t, 

k+1 

' ‘ • - * . , » N ,» * ... t . 

Of 

Each point vortex travels u ? At. iri the x direction, 

• K ; < , 

Oj • i ' . • i. ■ ■ .1 

and v° At^ in the y direction. 

CALL VM (X, Y, XDT, YDT, NDIM, KI, KF, IA) i . 

Input : 


X, Vortex locations at t ,,, 

Y : k 

XDT, Input arrays of vortex velocities" " 

YDT ; . . . v; 

KI, KF - KI + 1 is the number of vortices 

KF in an array 


IA Vortex field point index (see FREEVTX) 

Output : 

R Distance from cylinder to vortex 


•: ' -t U 


XTEMP, Temporary storage of the input vortex locations 
YTEMP "••• '' 

X, Vortex locations at t, - 

Y k 1 . 

VCF ...... 

VMFIX .. .. . .. 

VMFIX is called only if R < a(t, ) 
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PURPOSE: 

METHOD: 


USE: 


CALLED 

FROM: 

REMARKS: 


SUBROUTINE VMFIX 


<To calculate a corrected point vprtex location. 

The Atj^ approximation involved in the motion of the 
vortices allows for the possibility that a point vortex 
'C . may cross the cylinder boundary. Since this is 

physically impossible VMFIX appends the vortex motion 
and places the point vortex outside of the cylinder. 

VMFIX calculates the tangent to the cylinder at the 
point where a vortex has crossed the cylinder boundary. 
Appended u° , v° are returned to VM such that the point 
vortex will travel along the tangent line; 

CALL VMFIX (X, Y, XDOT, YDOT) 

Input : 

X, Vortex location inside of cylinder 

Y 

XDOT, Original u° , v° 

YDOT 

DEF Some small parameter (.001), applied to the 

transformations to insure that the appended 
velocities will result in a new vortex location 
ohtside of the cylinder. 

Output : * ' * ' • • 

L Quadrant in which the point vortex is located 

XDOT, Appended u° , v° 

YDOT 


VCF 

VM calls VMFIX if R < a(t] c ) (see VM) , upon returning to VM 
the vortex location is recalculated starting with the 
original vortex position. ; 
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SUBROUTINE WRIT 


PURPOSE: 

METHOD: 

USE: 


CALLED 

FROM: 


Print, punch,' vortex locations, strengths , and velocities. 
Tape 6 = Output, Tape 7 " Punch .... 


i - . ,, - « ' K i 


CALL WRIT (X, Y, XDOT , ' YDOT , GAMMA, XB,. YB, GMAB,. KIT^--,'^'' » 
KFT, KIB, KFB, K, NDIM, IW) ' V '! • .‘.Ivi?-* 

Input : 


X, 

Input array 

of 

t.b.l. 

or 

t.r.s.l 

Y 






XDOT, 

Input array 

of 

t.b.l. 

or 

t.r.s.l 

YDOT 

velocities 





GAMMA 

Input array 

of 

t.b.l. 

or 

t.r.s.l 


strengths 





XB, 

Input array 

of 

b.b.l. 

or 

b.r.s.l 

YB 

locations 





XDOTB, 

Input array 

of 

b.b.l. 

or 

b.r.s.l 

YDOTB 

velocities 





GMAB 

Input array 

of 

b.b.l. 

or 

b.r.s.l 


strengths 





KIT, 

KFT - KIT + 

1 « 

= number of t.b.l. 

KFT 

vortices to 

be 

output 



KIB, 

KFB - KIB + 

1 = 

= number of 

: b.b.l. 

KFB 

vortices to 

be 

output 



IW 

IW = 6 Print 





IW = 7 Punch 





IW = 9 Write on TAPE 

9 



VCF 
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APPENDIX la 


PROGRAM ADYNF AND SUBPROGRAM DESCRIPTIONS 


This appendix contains a brief outline of the purpose, method, and use of 
program ADYNF and subroutine FIT. Subroutine RZRO is described in 
APPENDIX I. Subroutines SPLINEB and CADRE are not described in this 
APPENDIX but are listed in APPENDIX II. 
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PROGRAM ADYNF 


PURPOSE: 

METHOD: 


USE: 


To calculate C„ 
N 


and C.. , 
M, A 


Values of Cp(z) and z output from PROGRAM VCF are input 
on cards to PROGRAM ADYNF. The normal force and moment 
are given by 



(4f / it) 


f l 

c dz 
n 

J 

0 


and 



- (4f /it) 


/■I r dr 

^ + C n d * +XC N 

0 dz . 


respectively. Approximations to thse integrals are 
evaluated by first obtaining a least squares cubic spline 
approximation to the integrand function and then by 
integrating the approximate function. The integration 
interval is divided into sections, and a cubic polynomial 
approximates the integrand in each section. The endpoints 
of the sections are called "knots" the approximating 
cubics being continuous up to the third derivative at the 
"knots." 


Input : 

INFO Data Identification 


AATACK Angle of attack 
. LAMBDA Moment arm coefficient 


LENGTH Dimensional body, length 
F Fineness Ratio 

'"O 

AW Characteristic length, a 

RW Maximum Radius, d/2 

NOKNOT Number of knots used to segment the interval 

[ 0 , 1 ] 

LX The number of C^(z) values 

X Array of z values 
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PORCD 


XI 

.. - - 'J \ 

Output ; 

ITER 

XI 

COEFL 

ERRL2 

ERRL1 

ERRL99 

■ :: xx ! \ . : 

FCTL ‘ ' 
'' /PRINT 
CN 
CNI 

ERROR 
I FLAG 

CM 

CMI 


Array of Cp(z) values 

Array of knot positions, the length of the c 
array equals NOKNOT 


Number of sweeps through opt , (ref erence 4) 
Knot values after optimization 
Cubic coefficients 

Least square error, spline approximation 
Average error, spline approximation 
Maximum error,, spline approximation 
z 

Spline approximation to integrand at z 
Scaled error, spline approximation 
Normal force coefficient C 

N 1 


Approximation to the integral 

Computed absolute error in CNI 
II - CADRE) 


c dz 
n 


(See Appendix 


An integer between 1 and 5 indicating what 
difficulties were met with in obtaining an 
approximation to CNI (See Appendix II - CADRE) 


Moment coefficient, C Xjf ‘ 

M, A 

Approximation to the integral 




dz 


c dz 
n 


SUBPROGRAMS 

CALLED: 


SPLINEB, CADRE, FIT, RZRO 



REMARKS: 


VCF punched output z, Cp(z) is input to ADYNF. The 
first value of z output by VCF is z = .03, and the 
final value of z is usually slightly less than 1.0. 

It is known that at z = 0, Cjj = 0, and by extrapolating 
the given data to z = 1.0, two additional data points 
are input to ADYNF. See the ADYNF PROGRAM INPUT DATA 
section, and APPENDIX IV - ADYNF SAMPLE INPUT, for further 
explanation of the input data. 

To evaluate the and C M. \ integrals, the integrand 
functions are approximated using cubic splines. This 
smooths the data, and allows for the integrand to be 
approximated at any z which permits the use of the 
integration routine CADRE. CADRE has been proven to be 
a very successful numerical integration scheme and errors 
in the calculation of C N» C M. A are believed to be less 
than 2%. Subprograms RZR0 add RZERO are called by ADYNF. 
For listings and use of CADRE and SPLINEB see Appendix II. 
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PURPOSE: ^ 

METHOD: 

USE: : ' 


CALLED 

FROM: 

REMARKS: 


FUNCTION FIT . 

To determine the integrand values [c n ] or 
r Q dr 

; ‘[z + for arbitrary values of z, 0 < z < 1. 

dz 

The cubic coefficients have been supplied by SPLINEB. 

: The set of coefficients used to approximate the integrand 

u.', depends upon knot locations and z. , 

' "Function" reference to FIT (X) ' • ■ 


Input : 


X 

z 

XI 

Knot locations 

COEFL 

Cubic coefficients 

Output : 


FIT 

Cubic spline approximation to the 
integrand function 

ADYNF 


For further 
references 3 

information on spline approximations see, 
and 4 and SPLINE listing in Appendix II. 
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APPENDIX lb 


SUBROUTINE IC 


This appendix contains a listing of SUBROUTINE IC and subprograms referenced 
by IC. After the first program cycle is completed SUBROUTINE IC and its 
subprograms are no longer required, and can be replaced by a dummy 
SUBROUTINE IC. The coding for the dummy program follows the original 
SUBROUTINE IC listing. 



Description of Parameters 


Variable or FUNCTION Subprogram 

Q 

:QP .V ■ 

. Qpp . ’ * 

ETA 

ZTAOOl(ETA) 

ZTA02A1 (ETA) 

ZTA02B1 (ETA) 

PHIO(ETA) 

PHIl(ETA) 

ZTAOll(ETA) 


Description J2 J 

q 

• q' 
q" 

. .n ■ 


c' (n) 

OO 

? 0,2a (n) 

C 0,2b (n) 

V n) 

^(n) 

?Ql(n) 



o o o o o 


SU9 ROUTINE ICIAKTI, U,IDIM, JDIM , MODE ) 

DIMENSION U<IDIM,2, JDIM) . ' 

nil ENSION NX(53> ,DEG<53) ' ‘ ‘ ' v ■ 

DIMENSION THTAC53) 

COMMON ALPHA, PI ,PI2 ,RE , SRE , SQRTPI, OTOR,RTOO,RC ,RCMAXSQ ,SIG 
COMMON/9LOCK20/OX,OZ,INTX1,NBIG1 ■ 

COMMON/BLOCK 14/S (53?-,ST (53V, SB (53) ... > 

C0MM0N/BL0CK3i)/T,TI ,OELT,OELTT ,OELTB 
C0MM0N/8LB0X2/TAU,PT4,NBIG ; 

COM MON/B LBOX 12/7N(51), I SEP - — ^ 

COM MON/BLBOX 13/KTS* IXTRSET , IXBRSET, (JTNBIG( 53) , UBNBIG ( 53) 
COM MON/BLOCK5/AK,AKSOD, AKHALF, AKOOT 
COMMON/9LBOX4/A2,AO ,31,C0,D2,D0,E1, EO 

C0MM0N/RL80X5/A4A,A?A, A OA, P3A,BlA,C2A,C0f.,O3A, D1A,E4A,E2A, 

COMMON/8LBOX6/G4A,G?A,G1A,GOA,H3A,H2A,H1A,HOA, I2A,I1A,I0A 

COMMON/OLBOX7/K4A,K?A,K1A,KOA,L3A,L 2A,L1A,L0A 

COM MON/BLBOX 8/ A4B,A28, A OB, B3B, B1B,C 29,C0B, 038, OIB ,E4B ,E2B, 

C0MM0N/9LB0X9/G4B,G2S,Gl8, GOB, H3B, H 2B,H1B, HOB, I2B,I1B,I0B 

COMMON/BLBOX10/K4R,K23,K19,KOB,L3S,L2B,L19,LOB 

PEAL IP,KP,LP 

PEAL I2,I2A,I’B,I1,I1A,I19,I0,I0A,I0B 

REAL K4,K4A,K4B,K2,K2A,K2B,K1,K1A,K1B,KO,KOA,KOB 

REAL L3,L3A,L3B,L2,L?A,L28,L1,L1A,L1B,L0,L0A,L0B 

IE( M0DE.E0.2) GO TO 1 ..... 

****** »* ********* *********************** *********************** 

* t 

WUNDT DATA 


A 2= 1. 

A0= -.5 
PI* 1.5 
CO* .5 

02= 3.0 + 4. /(3.*PI) 
P0=-.5+?./(3.+PI) 

F 1= ♦ 2 • / ( 3 • ** I ) 

Ed* -2./C3.*S0RT(PI) ) 

A4A =-l« 0/3, 0 

A2A =-1.0 l ! ' 

ABA *1.0/4. O' 

P3A =-? ,0/3.0 
P1A =-?• 0 

CPA =-5.0/12. 0 ' 

C0A=-7. 0/6.0 ' 

D7A=9. 0/40. 0 

Ol-A =13 3. 0/240.0 

E4A =9.0*SQRT (3 . O > / (5 .0* PI ) 

E2A=2>.0+SQRT(3.0)/(5.0+PI> 

EOA=27»0*SORT(3.0) / (20.0+RI) 

FOA=8.0*SQRT (2. 01 / < 15. 0 ’SORT <» I > I 

G44 =-5.0/6. 0 4-2. 0/(9. 0*° I) 

G2A =-5.0/2. 0+2. 0/(3. 0+P I) 

GlA=-4. 0 / 13. O+SORT (PI) ) 

GOA =3. 0/0. 0-1. 0/(2. O+PI ) 

«3A =-13.0/12.0+1.0/ (3.0 +PI) 

H2A =2. 0/ ( 3. 0 +SQRT ( PI ) ) 

HI A *-7 3. 0/24.0 + 23.0/ (19. 

HOA =-l. 0/(3. 0 + SORKPI) ) 


2 $ 


■ ' ’ * ‘ic 

6 

- . - .5 


•■'"‘ic' 

7 

ic 

8 

■ * ' 'IC 

9 



• . . .** « 

JC 

13 

IC 

14 

i F 0 A 1 ic 

15 

;ic 

16 

:IC 

17 

iFOB IC 

18 

IC 

19 

5 ic 

20 

' ’ IC 

21 

IC 

2? 

• : Ic 

23 

ic 

24 

;.ic 

25 

IC 

26 

,ic 

27 

' IC 

28 

r -.IC 

29 

1*** fc 

30 

IC 

31 

" IC 

32 

ic 

33 

IC 

34 

IC 

35 

IC. 

36 

, lie 

37 

V, 'ic 

38 

. ic 

39 

ic 

40 

' ” IC 

41 

IC 

42 

' ‘Ic 

43 

• 'ic 

44 

IC ‘ 

45* 

IC 

46^ 

: ic 

47 

IC 

48; 

" IC 

' 49 

: IC 

50 

IC 

51 

' ■ ■' IC 

52 

■' v! Ic 

53 

■ IC 

54 

ic 

55. 

" ic 

56 v 

;* ic 

57 

ic 

58 

IC 

59 
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Obooc 


i?a=-i.o/3.o+i.o/(9.o*pi) 

I1A=1.0/ (7. 0*<5ORT(PI)) 

I0A=-5. 0/6. 0+4. 0/(9. 0* P T) 

K4A =-1.9/?.fl-(2.0+?7.0*S0RT(7.1T) ) / ( 1 5 .0*PI) -64 . 0/ ( 135 . 0*PI* * 2) 
<?A,=3.. 0*K4.A.-. .... 

<lA~=-4.0/SQRT(PI)-l6.0/ (9.0*PI*SQRT (PI) ) 

k0A=1.0/8.fl-(46.0+9l.0*SQRT (3. 0) ) / ( 6 0 . 0 *PI ) -16.0/(45. 0*PI**2) 
L3A =-1.0/?.0-( 2.0+27.0*SQRT (7. O' ) ) / ( 3 0 . 0*PI ) -32 . 0 / ( 135 . 0*PI* *2 
124=2.0/ (3.0*SQRT(PI)) 


649=1.0/3.0 

A 29 = 0.0 . 

A 09 =l.,0/:4. 0 •• 

P.33 =7.0/12.0 ’ '• , • 

P19=-3. 0/8.0 
023=1.0/3.0 
009 =-5 .0/12. 0 

P39=-9. 0/160.9 ' • ' 

P19=-31.n/3?i*.0 
F49=-£4A/4.0 
F2B=-E2A/4. 0 
rOB=-EOA/4.9 
FOB =F0 A 

943=1.5+2.0/(3. 0*PI) , 

G2B=. 5*2. 0/(3. 0*PI) 

GIB =0.0 

GOB =5. 0/8. 0-1. 0/(6. 0*PI ) 

H39 =7.9/ 4 . 0+7.0/ (9 • 0+PI) 

H2B =0.0 

H1B=-1. 0/8. 9+5. 0/(6. 0*PI) 

H09 =0.0 

123=0. 5+2. 0/0. 0*PI) 

119=0.0 

109 =- 1.0/ 4. 0 »-2 ,0/(9. 0*P I) 

<49 =7. 0/6.0+ (24. 0+9.O*SQRT (3.0 >>/(20.0*PI) *32.0/ (45.0 *PI**2) 
<29=0.5+ (136. 0+81. 0+SQRT (3, 0») / (60. 0*PI) +3 2.0/ (15 . 0*PI**2) 
<19=0.0 

<09=3,0/ 8.0+ (56. 0+8 1.0* SORT (3.0) >/( 2^0. 0*PI) +8. 0/(15. 0*PI**2) 
L3B =7.0/ 12. 0+( 24.0+9. 0*SQRT( 3.0))/ ( 40 . 0*PI > +16 . 0 / (45. 0*PI**2) 
129=0.0 

Ll9=-5. 0/24. 0+(40,0+27. 0+SQRT (3.0) ) / (48. P*PI ) +8. 0/ (9. 0*PI**2) 


EMC WUNDT DATA 


CONTINUE 

. DO 20 I=1,INTX1 
IF( MOPE • EQ. 1 ) S (I) =ST (I ) 
IF( MODE. EQ. 2) S(I)=SB(I> 
THT A(II=S(I) 

UEG (I) = THTA ( I) *RTOO 
********** BC Z = 0 
U(I ,1,1) =0.0 
U(I ,2, 1) =0.0 
DO 20 J= 2, NBIS 



IC 

60 


IC 

61 


IC 

62 

n 

IC 

63 


IC 

64 


IC 

65 

i 

IC 

66 

?) 

IC 

67 


IC 

68 

>♦2) 

IC 

69 

l°l) ) 

IC 

70 


IC 

71 


IC 

72 


IC 

73 


IC 

74 


IC 

75 


IC 

76 


IC 

77 


IC 

78 


IC 

79 


IC 

80 


IC 

81 


IC 

82 


IC 

83 


IC 

84 


IC 

85 


IC 

86 


IC 

87 


IC 

88 


IC 

89 


IC 

90 


IC 

91 


IC 

92 


IC 

93 


IC 

94 


IC 

95 


IC 

96 


IC 

97 


IC 

98 


IC 

99 


IC 

100 


IC 

101 

) ) 

IC 

102 


IC 

103 


IC 

104 


IC 

105 


IC 

106 

,¥ * ♦ ¥ 

IC 

107 


IC 

108 


IC 

109 


IC 

110 


IC 

111 


IC 

112 


IC 

113 


IC 

114 


IC 

115 


IC 

116 
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c *»*»*«*»* B.c. THETA= 0.0 

IC 

117 


IFCI.NE. 11 GO TO 11 

IC 

118 


Ufl ,1,J> =0.0 

IC 

119 


GO. TO 20 • . . ... •, • 

. • IC. 

’ 120 

11 

iFf J.NE.NBIG1 GO TO 10 

IC 

■3 121 


UCI ,1,NBIG> = 2.0*SIN(THTA<I> ) 

IC 

sf 122 


IFf MOOE.EO.l) UTNRIG(I)=U(I,1,NBIG> 

IC 

- 123 


IF< M00E.EQ.21 UBNBIG(I) =U(I, 1,NBIG) 

IC 

124 


GO TO 20 

IC 

125 

10 

CON TINUE 

IC 

126 


ETA=ZN(J)/(2.0*SORT(TI) ) 

IC 

127 


Q=2.0*SIN(THTA(D) 

IC 

128 


OP=2.0*COS(THrA(I)l 

IC 

129 


0-9P=-?.0*SIN(THTA(in 

IC 

130 


Utl ,1, J) =Q*<ZTAnoilE?A> ♦TI*fje*ZTA011(ETA)+TI**2*(OP**2*ZTA02Al 

IC 

131 


1 (FTAM-0*OPP*ZTA02Bl(ETA>n 

IC 

132 

20 

CONTINUE 

IC 

133 

r\ 

V • * • * 

U AT T=TI GOES TO U (BAR) AT T=TI 

IC 

134 


DO 21 1= 1, INTX1 

IC 

136 


UTH BIG(I)=AKTI*UTNBTG(I) 

IC 

137 


UBN eiG(I)=AKTI*UBNBIG(I) 

IC 

138 


00 21 J= 1 » NBI G 

IC 

139 

21 

U(I ,1, J)=AKTI*U(I,1.,J) 

IC 

140 


IF(M00E.E0.21 GO TO 9 

TF( LEVEL .GE. 4) CALL RITE (1,IDIH , JOIN , U,ZN, NX, S, OEG, ZHAT ,OEtS , K) 

IC 

141 

9 

CONTINUE 

WRITE (1) (UTNBIGCI) , (U( I ,1 , J ) , J = 1 , NR IG) , 1=1 , INT XI ) 

IC 

157 


PET URN 

IC 

163 


ENO 

IC 

164 


SUBROUTINE IC( AKTI , U , ID IN , JO IM , MOOE ) 

IC 

1 

PI*ENSION U(I0IM,2, JOIN) 

IC 

2 

COWM0N/BL9OX13/KTS,IXTRSET,IXBRSET, UTNBIG(53),UBNBIG(53) 

IC 

3 

PEA 0(11 (UTNBIG(I), (U(I, 1,J) , J= 1, 51 ) ,1 = 1,53) 

IC 

4 

RETURN 

IC 

5 

ENO 

IC 

6 
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*> 

f 


FUNCTION phKHEATA) 
PHI (FATA) - 1.0 
PET URM 
ENO '* 

J 


PH 10 1 

PHIO 2 
PHIO 3 
PHIO k 


, 

' i 
') i 


V 


S 

\ 
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function phimeata) 

COMMON ALPHA , PI » PI? » RE* SRE»SQRTPI» DLTA 

COM M0N/8LB0X2/T AU, PT4, NBIG 

PHI 'l«?vtT*EXP C-EATA /SORTtPI t~ 

RETURN 

END 


. T 
PHIl 2 
PHI-1 ..-,3 


rnH . 

PHIl - 5 
PHIl 6 
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£ArW’” 

A0p»ERF<E» 
.‘TUR*f\ T 
MO ^ 


ZTAOfli tCATAJ 


*,,r .*•»> 


2TA001 1 
2TA0012 
'.ZTAOOi 3 

' zmn'jt 

ZTAOOi 5 
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FOHmtro ZTATIIHEATA) 

COM MOM ALPHA, PI, PI2, RE, SRE,SQPTPI,OLTA 

C0MM0N/BLB0X2/TAU,PT4,NBIG 

C 0HM0N7B LBO X 4AA 2,-ATT,gl, DO, CT2 , DT , E1,0 

E=E ATA 

A2= 1.0 

A0= -0.5 '' v 

81*1.5 " ' : . 

CO* 0.5 

02*7.11*4 .07(3.0 *PI V 
DO* -0.5*\2.0/f 3. 0*PI) 

El* 2.0*2. 0/ <3. 0*PI) 

E0sr-*.O7 t3vO*SORT (PIT) 

ZTA 011=(A2*E*E*AO>*PHIO(E)**2*B1*E*PHIO(E>*PHI1<E>*CO*PHI1(E>**2 
ZTA011=7TA811*<D2*E*E*DO>*PHIOCE)*CEi*E*EO)*PHIl<E> 

RETURN 

END • : 


ZT A 0 11 r 
ZTA011 2 
ZTA011 3 
~ZT AOn 4 
ZTA011 5 
ZTA011 6 
iT A O t t 7 
ZTA011 8 
ZTA011 9 

zt a o i rtr 

ZTA01 11 
ZTA 01 12 
7TA81 r3 
ZTA 01 14 
ZTA01 15 
ZTAtn 16 
ZTA01 17 


FUN CTION” ZT A02AT<E AT A> “ ZTA02A 1 

CON M0N/BL80X5/A4A* A2 A» A OA »B3 A»B1A» C2A»C0A» D3A, 01 A » E4A » E2A»E 0 A » FO A ZTA02A 2 

COMHON/BLBOX6/G4A,G2A,GlA > GOA,H3A,H2A,HlA,HOA, l2A y IlA,IOA ZTA02A 3 

REAL IP,KP,LP ZTA02A 5 

REAL I2 y I2A y I2B y Il»IlA y I19 y IO y IOA y IO0 ZTA02A 6 

REA L K4 y K4A y K4B y K2yK9A y K29, X 1tK 1*VK 1 B y K 0 y K OA y XOB ZTA92A T 

REAL L3,L3A y L39 y L2 y L2A y l2B y Ll y LlA y LlB y L0 y L0A y L0B ZTA02A 8 

E=EATA ZTA02A 9 

ZTA02TTT 


P02=PHI9 (E)**2 
P03=PHI0 (E>**3 
Pl-PHTUCT 
PI 2 -PHI i (E) **2 
P13 -PHI1 (E>**3 
ET2-E*"*? 

ET3 =E**3 
ET4 =E* r ' 

A4= A4A 
A 2= A2A 
A0= AO A 
P3- B3A~ 

Bi= B1A 
C2= C2A 
CO-COA 
03=03 A 
01= D1A 


ZTA02 11 
ZTA02 12 
ZTA0213 
ZTA02 14 
ZTA0215 
ZTA02 18 
ZTA02 17 
ZTA0 2 18 
ZTA02 19 
ZTA02 20 
ZTA02 21 
~ZT A 0 2 22 
ZTA02 23 
ZTA02 24 
ZTA02-29 
ZTA02 26 
ZTA02 27 


E4-E4A 


~ZT A 02 2 8 


E2= E2A 
E0= EO A 
FO=FOA 
G4=G4A 
G2= G2A 
G 1=91 A 
G0= GOA 
H3= H3A 
H2= H2A 
Hl= HI A 
H0= HOA 
12= 12 A 
11= I1A 
10= IOA 
<4=K4A 
K2= K2A 
Kl= K1A 
KO=XOA 


ZTA02 29 
ZTA02 30 
ZTA02 31 
ZTA02 32 
ZTA02 33 
2T A 02 34 
ZTA02 35 
ZTA02 36 
ZTA02 37 
ZTA02 38 
ZTA02 39 
TTAt*2~49 
ZTA02 41 
ZTA02 42 
ZTA02 43 
ZTA02 44 
ZTA02 45 


L3=L3A 
L2=L2A 
Ll= Ll A 
L0= LO A 

AP= <A4*ET4*A2*ET2+AO)*P03 

PP= (BS’ETS+Bl’E )TP02*P1 

CP= CC2*ET2*C0) *P0*P12 

0P= (03*ET3+01*E) *P13 

S0RT2E=SCRT ( 2.0) *E 

S0RT3E=S0RT (3. 0 > *E 

EP= <E4*ET4*E2*ET2«-EO>*PHIOCSQRT3E> 

FP=F0*PHIfl(SQRT2E) *P1 


ZTA02 47 
ZTA02 48 
ZTA02 49 
ZTA02 50 
ZTA02 51 
ZT A 02 5 2 
ZTA02 53 
ZTA02 54 
ZTA02 55 
ZTA02 56 
ZTA02 57 
9TA02-5* 
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r,P= (G4»E T 4*G?*ET? + G1 , ‘E<-G0) *P02 
HP= tH3*ET3fH2*ET?*Hi*E*-Hfl) *P0*P1 
TP= (I?*ET?«-1 1*E+I0> *Pi? 

KP= (K4*ET4+K2*ET2*K1*E*K0> *oO 

LP= <L3*ET3f(.2*FT?*L 1*E+L0) *P1 

7Tft fl?Al = apt IP* C P 4-DP ♦EP«-FP4-GP+HP4-IP*KP*LP 

PET URN 

END 


ZTA0 2 59 
ZTA02 60 
ZTA02 61 
ZTA02 62 
ZTA02 63 
ZTA02 64 
ZTA02 65 
ZTA02 66 
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FUNCTION IT A02B1 (EATA> ZTA02B 1 

CON M0N/BLB0X87A4B, A2B,A OB, B3B,B1B,C ?B»CflB,03B, D1B,E4B ,E2B»E0B»F OB ZTA02B 2 
COHHON/BL90X9/G4B,G2B,G1B,GOB,H3B,H2B,H1B,HOB, I2B,I1B,I0B ZTA02B 3 


,“2Bi*lB,K5B yt3B jt2»*ttB,tt)B- 

REAL ; IP,KP,LP 

REAL, 1 2, I2A,I2B,I1,I1A,I1B,I0,I0A,I0B 
REAL.K4,K4A,K4B,K2,K2A,K2B,K1,K1A,<1B,K9,K9A,K09 
REAL,L3, L3A,L3B,L2,L2A,L2B,L1,L1A,L1B,L0,L0A,L0B 
E=E AT A 
PthrPNItHE) 

P02 *PHI0 (Ei**2 
P0T=PHI0 (E) **3 
Pl=rpttIltE> 

Pi?sPHIl (E ) **? 

P1T=PHI1 (E) **3 
-FT2“=5*-*2' 


ZT A 02B "4 
ZTA02B 5 
ZTA02B 6 
ZTA02B 7 
ZTA02B 8 
ZTA02B 9 
TTA TT2 TO~ 
ZTA02 11 
ZTA02 12 
ZT AO 2-13 
ZTA02 14 
ZTA02 15 
- 2TA 0 2-1 6 - 


ET3=E**3 

ZTA02 17 

ET4 =E**4 

ZTA02 18 

A 4= A4B 

ZTA02 19 

A 2= A28 

ZTA02 20 

AO= AOB 

ZTA02 21 

55=535 

ZTA02 22 

Bl» BIB 

ZTA02 23 

C2= C2B 

ZTA02 24 

co=r:c/B 

ZTA 02 25 

03a 03B 

ZTA02 26 

Ola 01B 

ZTA02 27 

E4=E4B 

ZTAOr 28 

E2» E2B 

ZTA02 29 

E0= EOB 

2TA02 30 

Ft= FOB 

ZTA02 31 

G4= G4B 

ZTA02 32 

G2= G2B 

TA02 33 

“ClaGIB 

ZTA 02' 34 

G0= GOB 

ZTA02 35 

H3= H3B 

ZTA02 36 

H2= H28 

IT A 02 37 

Hla H1B 

ZTA02 38 

HOa HOB 

ZTA02 39 

I2a-I2fl 

ZTA02-4TT 

I1=I1B 

ZTA02 41 

10 s 108 

ZTA02 42 

K4a K4B 

ZTAO 243 

K2= K2B 

ZTA02 44 

Kla K1B 

ZTA02 45 

ro= kob 

ZTA02 46 

L3= L3B 

ZTA02 47 

L2=L2B 

ZTA02 48 

Ll= LIB 

ZTA02 45 

LO*LOB 

ZTA02 50 

APa (A4*ET4«-A2*ET2+A0>*P03 

ZTA02 51 

BP=-t*3»ET3FBl*E y*PB2*Pl 

ZTA02-52 

CP= (C2*ET2*CO)*PO*P12 

ZTA02 53 

0Pa<03*ET3*Dl*E)*P13 

ZTA02 54 

SQRT2E=S0RT ( 2« 8) *2 

ZTA 02-55 

SORT3E=SORT(3.0)*E 

ZTA02 56 

EP= <E4»ET4*E2*ET2+E0)*PHI0{SQRT3E> 

ZTA02 57 

5Pr55*Pt+I5<S13RT2£) -*9t~ 

ZTA 0 2 58 
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GPs CG4*ET4>G2*ET2»GI*E*GOr*P02 ZTS02 59 

HP= (H3«*ET3*H2*ET2*H1*E*H0>*P0*P1 ZTA02 60 

IP= <I2*ET2«-I1*E+I0)*P12 ZTA02 61 

fCP= <K4*ET4*K2*ET?*K1*E*K01 *PTI ZTAt T2 62 

LP= (L3*ET3*L2*ET2*L1*E+L0)*P1 ZTA02 63 

ZTA02Bl=AP»8P«-CP*DP*EP»-FP«-GPfHP+IP + KP-H.P ZTA02 64 

RETURN ZTA02 59 

END ZTA02 66 
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APPENDIX II 


CANNED SUBROUTINE LISTINGS - CADRE 

- SECOND 

- SPLINE, ARITH1 

- TRID 
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FUNCTION CADRE (FfA*Bf*ERR.RERR',LEvEL*ERFORfIFLAG) 

THIS FUNCT ION RE TUR NS AN ESTTMATc *CAQRE.« FOP THE NUMBER 
INT a INTEGRAL OF *P*(*> FROM *A* Tn *R* 

WHICH hopefully satisfies 

A8SJ INT -_*C ACRE*) .LE. aMAxT <*aERP*jl *PERR« TIMES A8S < INT) ) . 
THE PR06RAM USES CAUTIOUS aDAPtIVf ROMBERG EXTRAPOLATION, 

IN THIS SCHEME* THE INTEGRAL IS CALCULATED AS THp SUM OF INTEGRALS 
OVER .SUITABLY. SMALL SUB I NTERVaLS.ONEaCJH «UB INTERVAL. AN F ST T MATE 
* V INT* » WITH ESTIMATED ABSOLUTE ERROR *FRR£R** IS MOUNO BY CAUTIOUS 
ROMBERG EXTRAPOLATION. IF *EPRER* IS Small ENOUGH, «VINT* IS ACCEPT 
_E0 _AnO_.Ad.QEP. TC «CA0rE«»._AND *ERRER*. IS AQCEO. TO * ERROR* , .OTHERWISE 
The SUBINTERVAL is Halved* And Each HA| F IS CONSIOEREO SEPARATELY. 
Information about the cther half being temporarily stacked, 

***** INPUT ***** 

P THE NAME OF _A SINGLE- ARGUMENT PEAL FUNCTION SUBPROGRAM 

THIS NAMp MUST APPEAR IN THE CALLING PROGRAM IN AN 

external statement, 

A.e THE TWC PNOPOINTS OF THE INTERVAL DF INTEGR ATIO N 

AERR 

REPR DESIREC ABSOLUTE AND RELATIVE ERROR IN THE ANSWER 

level an integer indicating desired level cf printout 

•LE, 1. NO PRINTOUT. 

* 2* SUCCESS CR Failure Message, and LIST of SINGULAR- 

ITIES ENCOUNTERED (IF ANY), 

a 3. TN ADDITION. 6LL SUBINTERVALS CONSIDtRtO ARE LISTED 
TOGETHER with The kind of regular behaviour found 

(IF ANY). 

= A. IN ADDITION. aLL PATIOS CONSIDERED ARE LISTED AS IS 
INFO ON vHICw OEriSION PROCEDURE TS BASED. 

•GE. 5. IN AoDITICN.aLL T-TaBiES are listed, 

***** OUTPUT ***** 

Cadre estimate of the interdal. retupneo via the function call « 

ERROR ESTIMATED hOuN’C CN Thf ABSOLL'Tf ERROR OF THE NUMBER *CAORE* 
IF LAG. AN -INTEGER BETWEEN 1 aND g InDTCATING WHa T_DIFFIC UL TIES 
WERE MET wiTnl SPECIFICALLY 

* 1 * ALL IS wELL. 

...a 2 » ONE ORE MCRf SINGULARITIES WERE SUCCESSFULLY HANDLED l 
S 3» IN SOME SlBTNTEPVALfR) . TwE ESTIMATE *VInT* WAS ACCEPT 
EC MERELY BFCA.USf *epRER* WAS SMALL. EVEN THOUGH NO 
REGULAR BEHAVIOUR COULD BE .REC0.GNI.ZEO_*. 

* A* FAILURE. CVpRFLo Of STaCK *TS* (THIS HAS NEVER HAPPEN 

EC* - SO E«R> * - 

a a. FAILURE. TOC SMALL A SUplNTERVAL IS REQUIREO* THIS MAY 
RE CUE TO TOC MUCH noISF IN THE FUNCTION (RELATIVE TO 
THE GIVgN ERROR pEOi'tREMEnTS) OR DUE To A PLAIN ORNERY 

integrand. 

A VERY CAUTIOUS maM wOLLD ACCFPT *CAdRF* ONLY IF IFLAG IS 1 OR ?» 

The merely REASONABLE MAM would KfEP T*-f faith eve n if iflag IS 3. 
The AOVENTLRCLS mam IS QUITE oFTfn right in accepting *cadre* 

Even if IFLAG is * OR 5, 

***** LIST CF M*JCR VARIABLE*: ***** 

CUPEST rest estimate SO Far eor 

INT - (INTEGRAL OvfP CURRENTLY CONSIDERED SUBINTERVAU . 
FNSI2E MAXIMUM AVERAGE FUNCTION *IZe SO FAR ENCOljNTEPED. 

66 


cadre 

1 

caore 

2 

cadre 

3 

cadre 

4 

cadre 

5 

cadre 

6 

cadre 

7 

cadre 

8 

cadre 

9 

cadre 

10 

cadre 

11 

cadre 

12 

cadre 

13 

CAORE. u 
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CAORE 

16 

cadre 

17 

cadre 

16 

cadre 

19 

cadre 

20 

cadre 

21 

cadre 

22 

cadre 

23 

cadre 

24 

cadre 

25 

cadre 

26 

caore 

27 

caore 

26 

cadre 

29 

cadre 

30 

cadre 

31 

CADRE .32 . 

cadre 

33 

caore 

34 

cadre 

35.. 

cadre 

36 

cadre 

37 

CADRE J|8 

CADRE 

39 

cadre 

40 

CADRE 

41 

cadre 

42 

CADRE 

43 

CADRf 

44 

CADRE 

45 

CADRE 

46 

CADRE 

47 

cadre 

48 

CADRE 

49 

CADRF 50 

CADRE 

51 

cadre 

52 

CADre 53 

cadre 

54 

cadre 

55 

CADRF 

56 

cadre 

57 

CADRE 

58 

cadre 

59 

CADRE 

60 
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C ERRR RELATIVE ERROR HeGUIpemENT UsEnJ DERIVED FROM INPUT «PERR* 
aNC ChCSrm To LIE BETu/EEN .1 AND ic TIMES *TOl_MCH*. 

ERRa = ABS (*AERR*) 

5TA6F (MORE CR LESS) EcUaL TO 6 TO TmE -(«ISTAGE*) 

these five uuantities are uspn in thf ^termination of the local 

ERROP RETIREMENT. 

STERMN minimum ?UHInTERvAL LENGTH PERMITTED/ 

TS STACK CF VALUES CF F (x) SO FaR COMPUTED BUT NOT YET 

SUCCESSFULLY ilSEr. 

istage an integer Indicating thf height of the stack of intervals 
yet to be PROCESSED. 

***** list cf parameters ***** 

IOLMCH defends CN The LFNGTh of floating POINT MANTISSA; SHOULD re 
aBCUT 1.E-.7 FOR ?7 BINARY Bit M ANT I SS A AND 
ABCUT i.F-13 FCH AS BINARY BIT MANTISSA. 

AITLOW SHOULD Bf SOmERHaT GREATER ThAN 1. 

H2TOL. . 

AITTOL* 

PUMPTL TOLERANCES UsEC IN Thf DECISION PROCESS To RECOGNIZE 
H*«2 CONVERGENCE. X**aLPHa TyPF CONVERGENCE * OR ' r 
JUMP-TYPF CONVERGENCE OF THE TpaPe20ID. SUMS. 

MAXTS. 

maxtrl. 

HXSTGE are The THREE DIFFERENT UPPER LIMITS FOR THE DIMENSION OF 
THE VARIOUS ARRAYS. 

««««« FRCGRAM. LAyCUT ***** 

INITIALIZATION, 

BEGIN hORK On next SijrINTfRVaL 
get next trapezoid Sum 

GE1 RATIOS. PRELIMINARY OFCIsIoN PROCEDURE/ 

ESTIMATE *VInT* aSSUm tNG SMOOTH INTEGRAND 
ESTIMATE *VInT« aSSUmjNG INTEGRAND HAS X**ALPHA TYPE 
SINGULARITY 

NC LUCK !» I TH THIS TRapEZoiD sU.M. GET NEXT ONE OR GET OUT. 
ESTIMATE *VInT* ASSUMING iNTfGRAND HAS JUMP 
ESTIMATE *VInT« ASSUMING INTEGRAND IS STRAIGHT LINE 
ESTIMATE *VINT« ASSUMING VARIATION IN. INTEGRAND 

is mostly' noise. \ 

INTEGRATION OVER CURRENT sUBlNTERVAL SUCCESSFUL. 

SET UP NeXT SUBlNTERVAL* jF aNv, OF RETURN. 

INTEGRATION OVER CURRENT SUBlNTERVAL NOT SUCCESSFUL. 

MARK CURRENT SLBINTErvAL FOR, SUBDIVISION AND SET UP 
NEXT SUBlNTERVAL. 

FAILURE. 

DIMENSION T(ln» 10) »M10> ’ATT(fn) tnlF (In) >RN(4) f 

* TS(2.H9) ,I6EGS(3n> .BEGlN(3*) ♦FIMSOO) »EST(30) 

REAL LENGTH* i^iJMPTL 

LOGICAL H2CCNV. AlTKEN, RIGHT. PFGLAR*REGlSV (30) . 

DATA T0LMCH«AIT|.0w.H2TCL»atTTOI . JIJMPTL, MAXTS. MAXTbl^MXSTGF 

* / ?.E-13* 1.) . .15 * .1 * .01 , ?049» 10 ♦ 30/ 

DATA RN/. 71420053, .'346628ir,.Ba3751,. 12633046/ 

DATA ALG4C2 / . 30 1 0?99Q5663q795 / 

CADRE =0. 

ERROR =0. 

IFLAG =1 


5.6 

9-14 

15-19 

20 - 

30- 

40- 

50- 

60 - 

70- 

6 0 - 

90- 


900- 


CADPF 61 
CADRF 62 
CADRF 63 
CADRF. 64 
CAORF 65 
CADRF 66 
CADRF 67 
CADRF 68 
CADRE 69 
CADRF 70 
CADRF 71 
CADRE 72 
CADRF 73 
CADRF 74 
CADRE 75 
CADRE 76 
CADRF 77 
CAD»F 78 
CADRF 79 
CADPF 80 
CAORE 81 
CADRE 82 
CADRF 83 
CAORF 84 
CADRF 85 
CADRE 86 
CADRF 87 
CAOPE 88 
CADRF 89 
CADRE 90 
CADRF 91 
CADRE 92 
CADRE 93 
CADRE 94 
CADRE 95 
CAORE 96 
CADRE 97 
CADRE 98 
CADPF 99 
CAORF 100 
CAORF 101 
CADRE1V2 
CADRF103 
CADPF104 
CADRF105 
CADPF 1 06 
CA0RE107 
CAOPF 1 08 
CADRF 1 09 
CADRFl 10 
CADPE111 
CAOPF 112 
CADRF 113 
CADRE 114 
CADRE 115 
CADPF 116 
CADPE117 
CA0RE118 
CAORE 119 
CADRE120 
CADRP121 
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LENGTH a fio a(B-A) 

IF (LENGTH .EG. 0.) RETURN 

_£RRR,JiJ>MINl(^l_t^NA>l(^BSlRERR'u^JlQ^»TOL MC H)X 
ERRA a ABS(AERR) 

STEPMN » AMAXi (LENGTH/FLOftT(?«*MXST(?E) . 

* AMAXl (LENGTH, ABS(a) , arS (B > ) *T_QLMCH) 

STAGE » .5 
ISTAGE * 1 
CURES T. * 0 . 

FNSIZE * 0. 

PREVER * o. 

-REGLAR_.8--.FAi.SE-. 

the given interval of integration is the first interval considered. 
BEG-= a 

F BEG • F (eEO/p. 

TSU) « FBEG 
IBEG s 1 
END 8 B 

FEND 8 F (END)/?. 

_TS(2) » FF.NC 
IEND a 2 

5 RIGHT s .FALSE. 

investigation cf a particular surtntfRval begins at this point. 

***** MAJOR VaRI.ABiES ***** 

BEG. 

ENC ENCPCINTS OF THE CURRENT tNTfRvaL 

FBEG. 

FEND ONE HALF THE Value Of F(Y) AT THt ENCPOINTS 
STEP SIGNEO LENGTH CF CURRENT rUBINTERVAL 

1ST AGE HEIGHT OE CURRENT SUbjnTeoVal tN STACK OF SUbJNTeRVaLS 
YET TO BE DONE 

right a logicai variable indicating whether current subinterval 
IS RIGHT half cf PREVIOUS SUrImTERVaI. NEEDED I N RqFF AND 
qOFF TC DEC IOE WHAT INTERVAL To LOCK AT NEXT. 

T S ( I ) » IaieEG»..,.IENO» CONTAINS THE FUNCTION VALUES FOR THIS 
sue INTERVAL so F aR CCmPIJTfD. SPECIFICALLY. 

TS ( I ) a F ( bEG ♦ (I-TPEG)/(TEMD-ieEG)*STEP) . ALL I 
EXCEPT That TS(IpEG) e ErfG, Tr(IFNO) 8 FEND 
REGLAR A. -LOGICAL VARIABLE INDICATING WHETHER OR NOT THE CURRENT 
SUeiNTERVAL I? RfGULaR UfE nOTfS) 

H2C0NV A LOGICAL VAPlABl.E INDICATING WHETHER H*«p CONVERGENCE OF 
THE TRAPEZOID SUh$ FQr ThtS INTERVAL IS RECOGNIZED.. 

AITKEN A LOGICAI VARlABl E INDICATING WHETHER CONVERGENCE CF RATIOS 
FOP THIS SUPlMEcvAL TS PFCOGNT/ED 
T CONTAINS The FIHST *i,* ROWS OF THE ROMBERG T-TaRLE FOR THIS 

SUgINTERVAL IN ITS LOWER TRIANGULAR PART. SPtC IF ICALL Y ♦ 
T(I.l) s TR6PE7CI0 SUM (WITHOUT THE FACTOR *STEP»> 

ON 2**(I-i) * T EcUISPACEC POINTS. I=1»...»L» 

T ( I • j*i ) s T(I.wi) ♦ (T(t.J)-t(I-i,j))/(a**J - 1). 

J s 2 ..... T»] • 1 82 ..... L * 

FURTHER. The STRICTLY UPPfR TRIANGULAR PART of T CONTAINS 
THE RATICS For The VapIOUS COLUMNS of the T-TaBLE. 
SPECIFICALLY, 

T(J.I) s (T (I.J)-T (T-1 ,.)> )/(T(I.1.j)-T(I.J) ).♦ 

IsJ*l *, «»,| "1 i Jsl , . . , »l.“2 . 

FINALLY, the LAST OR I -Th CO| U^N CCNTAINS 
T(J,L) s T(L.J) - T(L-l.J). J=1»»,».L-1. 

6 STEP s ENC - REG 
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CADRE122 
CADRF.123 
CA DRE 1 24 
CAORE125 
CADRE126 
CADRE 127. 
CADRE 128 
CADRE129 
CADRE 130 
CADRE131 
CADRE132 
CADRE133 
CADRE 134 
CADRE135 
CA DRE1 36 
CADREi37 
CADRE138 
CA0^E139 
CADRE 140 
CADRE141 
CADRE.14? 
CADRE 143 
CADRF144 
.CADRE 145 
CADRE146 
CADRE147 
CADRE148 
CA0RF149 
CADRE150 
CADRE151 
CADRE152 
CADOE153 
CADRE154 
CADRE155 
CADRE156 
CADRE157 
CADRE158 
CADRE159 
CAD°E 160 
CADREiol 
CADRE1G2 
CA0RF163 
CADRE1&4 
CADRE165 
CADREI66 
CADPFI67 
CADPE168 
CADPF169 
CADRE 170 
CADRF171 
CADPF172 
CADRE 173 
CADDE174 
CADRE175 
CADRF176 
CAOREI77 
CADRE178 
CADPF179 

cadrfibo 

cadreibi 

CADRF1B2 



ASTEP s ABS(STEP) 

IF (ASTEP .IT. STpPFN) gO TO 950 

tf (LEYEk. -PEL. 3 5 *-«ITE <6.6Q9J BfG.STfF . I STAGF 
609 FCHHAT ( 1 OH eEb.STE p ♦?E16.B»Ic) 

T(1 .1) a FBEG ♦ FEN'C 

TABS a ABS(FBEG). ♦ ABS(FEND) 

L = 1 
N a 1 

-H2-C-CN y. * ..FALSE. 

AITKEK » .FALSE. 


9 IF (LEVEL .OF. 4) WRITER. 69?) L.Tfl.lH) 
10 L^i * L 
L * L ♦. l 
C 


CALCULATE The NEXT TRaPe^CIO SUM. T(l»1)» WHICH is based on 
C # N2* ♦ 1 EQUISPjsCED PCIKTS. HERE. N2 ■ N«? ■ ?«*(L-T) . 

N2 = N'*2 
FN a N2 

IST.EP.. *. I LEM) - leEC-J /N 
F (ISTEP .G1 . i) GO TO 12 

II a l END 

I E ND. a I ENO + . N. .* . . 

IF ( I END .GT. MAXTS) GO TO 900 

HCVN a STEP/FN 

III » IENC .. 

00 11 1*1 »N2 »2 
TS (III) = TS(II) 

ts-liii-d = f (End - Float (t)*hqvn) 

III a I I 1*2 

11 II a II-l 
.ISTEP. a . 2. 

12 ISTEP2 a IBEG ♦ ISTEP/2 
SUM a o. 

SUMABS * 0. 

DO 13 IaISTEP2.IEN0*lSTEP 
SUM a SUM ♦ TS ( I > 

U-.SUMABS ? SUV ABS . . ABSLiJL&JLL). 1 _ 

T(L.l) » T(L-l.l)/2. ♦ SUm/FN 
TABS a TABS/2. ♦ SUMArS/Fn 
_.ABSI. * ASTeP*TABS 
N s N; 

C 

_C J(iEX-B^EElVIKART--VALUE-.EOJR--*yj-NJ»-.-FilQM--4AS T T RA P E2QIIL SUM AND 
C LPdaTE The ERRCR REQUIREMENT *ERG0AL* FOR THIS SUBINTERVAL. 

C The ERROR REQUIREMENT IS NOT PRORaTEO accopoing To THE LENGTH of 
C THE..CUPRENT SueiN.TERVAL RELATIVE t.O THE INTERVAL OF .INTEGRATION* 
C BUT ACCORDING TO THE HEIGHT «*ISTagE* OF THE CURRENT SUBINTERVaL 
C IN THE STACK OF SUBInTERVALS yET TO BE DONE. 

-C -THIS- PB.Oc££JJB£ IS. NOT BACKED ... B Y AN Y . RJ.G 0 RO U S ARGU MEN T. BU T 

c seems to work. 

IT a i 

VINT a STEPa.T (L» 1 ) 

TABTLM a TaBS«TOLmCH 
FNSIZE * AMAXi (FNSIZE.4BS(T(L.?) M 
..ERJGCAL a A M AX UASTER-*TCUM£H«Fns1ZE-L 
* STAGE*AMaX1 (ERRA,eRRR*ABS ( CURES T* VINT) ) ) 

c 

COMPLETE ROW L...ANC COLUMN L OF «T« . ARRAY. 

FEXTRP a i. 


CADRE 183 

dAORElBA : 

rAQRFl85 

CADRE186 

CAOPE18T 

CAD RF188 

CA0RE189 

CAORE190 

CAORE191 

CADRE1W2 

CADRE193 

CADRE194 

CA0RE195 

CA0RE196 

CADRE197 

CADRE190 

CA0RE199 

CADRE200 

CA0RE201 

CADRE202 

C ADRP2Q3 

CA0RE204 

CAORE205 

CADR£206 

CAORE207 

CADRE208 

CADRF2Q9 

CAORE210 

CADRE211 

CA0RE212 

CA0RE213 

CA0RE214 

CA0RF21S 

CA0RE216 

CADRE217 

CA0RE218 

CA0RE219 

CADRE220 

CA0RF221 

CADRE222 

CA0RE223 

CADRE224 

CADRE225 

CA0RE226 

CADRF227 

CADRE228 

CA0RE229 

CAORE230_ 

CA0RE231 

CA0RE232 

CAQRF233 

CADRE234 

CA0RE235 

CA0RE236 

CADRE237 

CAORE238 

CADRF239 

CADRE240 

CADRE241 

_CA0Re242_ 

CA0RE243 
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DO 14 1*1 tU*l 
FEXTRP * F£XTRP*4. • 

IlIiU B ULil) - TIL.UI.) 

14 T (L * I ♦ 1 ) = T (lM) ♦ T(I*L)/(Ff.X1HP-U) 
EPRER * ASTEP«ABS(T(1,L) > 

-- — “— — — ' ».» — — • at • - — g> - 

— PRELIMINARY DECISION PROCEDURE — — 


IF l s.2 AM 1 T(2 *-U .a-.Uu.1J., GO TO 40 TO FOLLOW UP Ih£ IMPRESSION 

That integrano is straight line. 

IF <L .GT. 2) GO TO 15 

IF LASStlXl-jjFUJ *l_E. IABTlm) &0 10 40 

GO TO 10 


A t C.ULAJE NEAT ..RAJ.I C S .FqR . COLUMNS-! *»*.•. ».L».2 OF 


I- table 


Ratio is set to zero if difference in last two entries of 

COLUMN is ABOUT ZERO. 


15 00 1-6 I*2.LM 
DIFF *0. 

IF ( ABS (T ( I» 1 *L) ) .C-T. TArtLM) DIfF « T ( I- 1 »LM 1 ) /T ( 1-1 »L> 

16 TXI-*?1 *.LB-1 ) * C IF.F 


T(1»LM1) IS THE PATIO DERIVED FROM LaST THREE TRAPEZOID SUMS, I.E.* 
TU.LM1) = ( T (L"l * 1 ) -T (L“2, 1 ) )./(T (L.1 )--X.lL*.LiJJ-) * 

IF THIS RATIO IS ABOUT 4, GO TO FOR POMEEPG EXTRAPOLATION. 

IF THIS RATIO IS ZERO, I.E., IF LAST TVO TRAPEZOIO SUMS ARE ABOUT 
E-QU-AL»_ Jj.O JO . l ft- F OP P 0 S SI B l,E .. N.O.I.SE.. CHECK _• 

IF THIS RATIO IS about 2 IN arSOLUTE Value, GO to 50 WITH THE 
BELIEF THAT INTEGRAND HAS JUMP DISCONTINUITY. 

IF THIS RATIO IS. AT LEAST, .AROUT.. EQuAl TO. THE PJ»EVlO.U.S RA.tl.O.,. THFN 
THE INTEGRAND MaY wgLL HAVE A NICE INTEGRABLE SINGULARITY. 

GO TO 30 TO FOLLOW tP THIS HUN^H. 

If (ABSU.-T d .LMl) ) .IE.- HpTOL-) 0,0 TO 24 
IE (T ( 1 »LMl ) .E'J. 0.) GO TO 10 

IE (ABS (2.-ABc (T ( l.LMl ) ) ) .LT. JUmPtL) GO TO Sp 
IF (L .EG. 3 ) GO TO 9 

H2C0NV * .FALSE. 

IF < ABS ( (T (1*L«1).T(1 ,L-2M/T(T,LMl) ) .LE. AITTOL) 

*■ GO TO -J4 

C AT THIS POINT, no REGULAR otMAVlrijR WAS DETECTED, 

C IF current SL'BINTERVaL is not regular and only FOUR TRAPEZOIO SUMS 
C WERE CCMP4I-TEC 50 FaR^. TRv ONE. MOR*- TRAP-E-ZOID-SUiiL 
C IF » AT LEAST, LAST TWC TRAPEZOID SUMS ARE AeOUT EQUAL* THEN 

c failure to recognize regular behaviour hay well be due to noise. 

C GO TO 70 TO check THIS OUT. 

C OTHERWISE, go TO FOR FURTheR SUBDIVISION. 

C 

17 IF (REGLAR) GO TO 18 

IF (L .EQ. 4) GO TO S 

18 IF (ERRER .LE, ERgOAL) GO TO 70 

if (Level ,ge. *> »rtte u,6s3> l*.tiulmij. ' 

GO TO si 



CAUTIOUS ROMBERG EXTRAPOLATION — — 

c 

c The CURRENT, or L-TH, row OF the ROMBERG t-table HAS L ENTRIES. 

C FOR J*1 , . . • »L-2 • THE ESTIMATE 
C STEF*T (L» J*l) 

C IS BELIEvEC TO have ITS ERROR BOUNDED PY 
C ABS(STrP«(T(Lwj)-T(L-l.w))/f4**J - 1>> 

C IF THE LAST ratio 


70 


CA0RE244 

CADREZ45 

CA0RE246 

CA0RE247 

CADRE24B 

CADREE49. 

CADRE250 

CADRE251 

CADRE252 

CA0RE253 

CADRE254 

CAQRE255 

CADRE256 

CA0RE2S7 

CADRF258 

CADRE259 

CADRE260 

CADRF261 

CADRE262 

CADRE263 

CA0RE264 

CADRE265 

CA0RE266 

CADRF267 

CADRE268 

CADRE269 

CA0RF27.0 

CA0RE271 

CA0RE272 

.CAD.R£2_73 

CADRE274 

CA0RE275 

CADRE27-6 

CADRE277 

CADRE278 

CADRE279 

CADRE280 

CA0RE281 

CADRF282 

CADRE283 

CADRE284 

GADRE285 

CADRE286 

CADRE287 

CADRE288 

CADRE289 

CADRE290 

CA0RE291 

CADRE292 

CADRE293 

CA0RF294 

CADRE295 

CA0RE296 

CADRE297 

CADRE298 

CADRE299 

CADRE204 

CADRE301 

CADRE302 

CADRE3.03 

OADRE304 
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C T(J*LH1> a <T(l-1»v’>-T(L-?.J))/<t<L*J)-T(L-1,J>> 

C FOR COLUMN J OF THE T -TABLE IS ABOUT 4»*J. 

£ The following is a Sj.i-6.ht.iy pflaxfd expr ession of thtr bfi ief^ 

20 IF (LEVEL .GE. 4 ) WRITE <6.619) l.T<l # LPl> 

619 FORMAT (I5*E16.flt5x6HH?C0Nv) 

IF (H2CCNV) GO TO ?1 

AITKEni » .FALSE. 

H2C0NV ■ .TRUE. 

< LEVEL _&££.• 3' WRITE. L. 

620 FORMAT (22H H2 CONVERGENCE aT P0W*I3) 

21 FEXTRP * 4. 

22 IT ■ IT * i . 

VINT a STEP«T(LtlT> 

ERRER = ABS(STEP/(FEXTPP-i . ) *T ( IT-1 ,L> ) 

tf (ERRER .LE^ ERgOAL) fiO Id nn 

IF (IT .EC. LH) GO TO 40 

IF (T(ITfLMl) .EO. 0.) GO TO 22 

IF (T(IT.LMl) .LE. FEXTRP) GO TO 40 

IF (A0S(T(IT.l m 1)/4.-FEXTpp)/ffXTpP .LT. AITTOL) 

• FEXTRP e FeXTRP«4. 

GO TO 22 


— INTEGRaNC. MAT WAVE x«*alpha TYPE singularity 
Resulting in a ratio of «sing* = 2«*(alpha -* 

30 IF (LEVEL ,GE. 4 ) WRITE <6.6?9) L.Tfl.LMl) 
629 F0RPAT(I5»E16.B»5X6MAITKEN) 

IF IT(l»LMi) .LT. AITLCW) GO TO .91 

IF (AITKEN) GO TO 31 

H2CONV » .FALSE. 

AITKEN » .TRUE. 


IF (LEVEL .GE. 3) WRITE (4.63d L 
630 FORMAT ( 14H AITKFN AT BCW»l3) 



.It EEXTRP = l (L-2.LM1 ) 

I F (FEXTRP .GT. 4.5) GO Tu 21 

IF (FEXTRP .LT. AlTLOw) 6° TO 91 

IF <ABS(FEXTRP-T( L -3.LMl))/T(i,LHi) .GT . H2T0|_) 

• GO TO 91 

if (Level .ce. 3 ) write (6.63n ffxtpp 
631 _F_GRP.AT(6H. RATIO. F12..8) 

SING > FEXTRP 
F F X T M i a FEXTRP - 1 . 

DC 32 I«2»L 

A I T < I > a TIM) ♦ (T (I»1)-T(I-T»1> )/FEXTMl 
R(I) = I <1*I-1) 

32 0 1 F ( I ) 5 A 1 7 < T ) - AIT(I-I) 


IT a 2 

33 VINT a STEP«ATT(L) 

if (Level .lt. s> gc tc 333 

WPlTE (6»632 > (W(I*1) .IslT.LMi ) 

WRITE (6*632) ( A I t ( I ) » I *1 T .L > 

WRITE (6*632> (DIF ( 1*1 ) *I*lT*i_Ml) 

632 F0RPAT(1X,8E15.M) 

333 ERRER a ERRER/FEXJM 1 

IF (ERRER .GT. ERgOaL) GO TO 34 

ALPHA = AUOGlfi (SInG)/ALG40p - ?. 

if (Level .ge. ?> write (6.633) ai.pwa.beg.end 

633 FCRPAT ( llX42HIMTEG B ANp SHOWS STNGuLaP BEHAVIOR OF TYPE 

• 4HX«« (F4.2.9H) eETwFENc-TS.R.AW AN0F15.B) 

IFLAG a MAXO ( IFLAG.2) 


34 IT * IT 


go to e* 


CADRE305 - 

CAOPE306 

CADBE307 

CADRE308 

CADRE309 

CA0PE310 

CADRE311 

CADRE312 

CADRF313 

CADRE314 

CADRE315 

CADRE316 

CADRE317 

CA0RE318 

CADRF31.9 

CADRE320 

CADRE3H1 

CADRE 322 

CADPEjZU 

CADRE324 

CADRE325 

CADRE326 

CADRE327 

CADRE328 

CADRE329 

CADRE330 

CADBE331 

CA0RE332 

CADRE333 

CA0RE334 . 

CADRE335 

CA0RE336 

CA0RE337 

CADRE338 

CA0RE339 

CADPE340 

CADRE341 

CADRE342 

CADPE343 

CADPF344 

CADPF345 

CA0PF346 

CA0PE347 

CADRE348 

CADRE3A9 

CAORE350 

CADRE351 

CADRE352 

CADRE353 

CA0RE3S4 

CA0PF355 

CA0BF356 

CADRE3S7 . 

CA0DF358 

CA0RF359 

CADRE360 

CA0RE361 

CADRF362 

CADPF363 

CADRF364 

CADRF365 
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IF ( IT 

• EG. L m ) ) 

go 

TO 

40 

IF (IT 

. GT . 3 ) • 

GO 

TO 

35 

H2NEXT 

= •' 4 . . -V-: . 

- 



SINGNX 

= 2. « Sing \ 




IF (HpNEXT .LT . SjNGNX ) 

GO 

TO 

36 

FEXTRP 

= singm 




SINGNX 

= 2 •* singnx 

go 

TO 

3 7 


36 FEXTRP = f?NEXT 
H?NE XT = 4.«H?NEXT 

37 DC 38 1=17 .LMi 

r ( t + 1 ) = a. 

38 IF (APS (DIF ( I* 1 ) ) .GT. TApyLM) R < I * T ) = DIF ( I ) /DIF ( TM ) 
IF (LEVEL .GE. 4 ) WRITE (6,638) FpXTPP, p (L-l > .P (L) 

638 FCRVATU6I- F E*JRP ♦ - R a.T I0S , 3El S » 8 ) 

H 2 T F E X = “H2TCL*FpXl RF 
' IF. ( R ( L ) - FExTRP ,L T . H2TFEX ) GO TO 40 

IF (R (L-l) -FEXTRP ,LT. H2TFEX) GO TO 40 

ERRER = ASTEP* amS (DIF (L ) > 

FEXTMi = FEXTpo 
DC 39 I = I T * L 

AIT(I) = A I T ( I ) ♦ DlF(I)/FrXTvT 

39 DIF(I) » AIT(I) - Ail f 1-1 ) 

(SO TO 33 


C 

CURRENT- TRAPEZOID S(.m AND RESULTING fXTrAODLaTEC VALUES DID NCT GIVE 
C A Small enough 

C IF LESS THAN FIVf TRaPE^OID SUMS WERE COMPUTED SO Fah, TRY NEXT 
C TRAPEZOID SIM. 

c OTHERWISE* DECIDE *heTFEP TO gO ON OR TO SLBD I V IOF A* FOLLOWS. 

C with T(L*IT) GIVjng THE CURRENTLY BEST ESTIMATE* GIVE UP ON OFVELOP 
C - ING THE T-TRBLE FURTHER IF t. .GT. IT»p. I.E«* I.F EXTRAPOLATION 
C DID HOT GO VERY faR jMO THE’t-TapLE. 

C FURTHER, give LP if RECUcTIOn in *»ERREP* aT THE CURRENT RATE 
c DOES NCT PREDICT an «eRRfR* LRSS THAN *ERGCAL* by The Time 
C «MAXTRL* TRAPEZOID SUMS RAVE pEEki COMPUTED. 

C —NOTE— • - 

C HAVING PREVER ,|T. eRFEF is an almost CERTAIN sign of beginning 
c trouble with noise in the function values, hence. 

C A WATCH FOP * and CONTROL CF* mOISf Should begin here. 

AO FEXTRp = AMAXf (PREVEH/ERREP.AT tLOw) 

•PREVER = ERRER 

IF (L .LT. 5) GO to 10 » 

* IF (LEVEL .GF. 3 ) WRITE (6.64)) EqRFR.ERGC AL .FExTRo. I t 
64 1 FORMAT (23H ERRER* ERC-0 aL . Ff xTRP , I T ,2E 1 5 .e ♦ E 14 .5 , 1 3) 


IF (L-II .GT. ? .aN>C * ISTagE ,| T. mvSTqE) GO To 90 
IF (ERRER/FEXTPP** (MaxIbL-i ) .I.T. ERGOAL) GO TO ]Q 

GO TO 90 


c 

C INTEGRAND has jump (SEE NOTfS) ——————— 

50 IF (LEVEL .GE. 4) WRITE <6.64P)' L,T(1*(.M1) 

649 FORMAT (I5*El6,8.5x4r JUMP) 

IF (ERRER .GT. ERGOAL) GO TO 90 

C NOTE THAT 2«FN s 2<*«L 

0 1 FF = ABS ( I (1 .L) )«2.«FN 

IF (LEVEL .GE. 2) WRITE (4,68') OtFF ,BFG .END 

650 FORMAT (13X36HiKiTEGPANC SEe^S To Ha Vf jump OF SIZEE] 3.6* 

* ■ 8H 8ETwEENET5.8*4H aNDF?5.b) 

GO TO 80 


---- INTEGRANC IS STRAIGHT linf 


CADRF3P6 

CA0RF3P7 

CADRF3P8 

CADPF369 

CADRF370 

CADQF371 

CADRE372 

CAOPF373 

CADRF374 

CAOPF37S 

CADRF376 

CAD«E377 

CADRF378 

CADRF379 

CADPF380 

CADPE381 

CA0PE382 

CA0RE383 

CA0RE384 

CADRF3P5 

CADPF386 

CADRF387 

CA0RE388 

CADPE389 

CADPE390 

CA0RF391 

CADRF392 

CADPF393 

CA0RE394 

CADRE395 

CA09E396 

CADRF397 

CADRF398 

CADRE399 

CADPF400 

CA0PE401 

CADRF402 

CADRF403 

CADRE404 

CADRF405 

CADRF406 

CA0PE407 

CADRF408 

CADRF4Q9 

CADRE410 

CA09F411 

CADRF412 

CAORE413 

CADRE414 

CAD»E415 

CADRE416 

CA0RE417 

CA0PE418 

CADRF419 

CAORF420 

CADRF421 

CAORE422 

CADRE423 

CADRE424 

CADPE42S 

CADPF426 
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C' TEST* THIS ASSUMPTION BY CCMPaplNr, THE VALUE CF THE INTEGRANO AT 
C~ FOUR' ^RANDOMLY CHOSEN* POINTS WITH ThE VALUE OF THE STRAIGHT LINE 
C INTERPOLATING THC INTEGRA NJD AT The TwO ENnRO.INTS OF ThE SUP- 
C INTERVAL. IF TEST IS PASSED* ftCCEoT *VrNl* . 

; 60 IF’ (LEVEL .C-E. A) WRITE (6,6*") L 

660 FORMAT (15*21X1 3 HSTRAIGHT LTNE) 

SLOPE s (FENO-F 0EG)*2. 

' F0,EG2 * FBEG*2. 
pn 61 I*1 .a 

DIFF * ABS(F(PEG*RN(I)«STEP) - FBEGp-RN ( I ) *SLcPE) 

IF* (DIFF .GT. TABTLM) GO TO 72 

61 CONTINUE 

IF (LEVEL .GE. 3) WRITE (A. 667) 0.EG, END 
667 FORMAT (27X43 HINTEGRAND SEEMS To Be STRAIGHT LlwE BETWEEN 
« E15.8.4 H AnDE 15«8> 

GO TU 

C— •— ——————————— 

c— .... NOISE mat HE DOMINANT FEATURE -*>— — 

C ESTIMATE NOISE LEVEL 0 T CCMPapiNG THE value CF i HE INTEGRAND AT 
C EOUR ^RANDOMLY CHOSEN* POINTS WITh ThE VALLE OF ThE STRAIGHT LINE 
r I NXERPQLAlLNG IHE.INTEG R AND _A_T THE TwO ENOfOlNtS. _1F. SMALL 

c enough* accept *vint«. 

To IF (LEVEL .GE. 4) WRITE (6.675) L.T f 1 *LM 1 ) 

670 F0R M_ A T ( 1 5 » E 1 ,6 .5* 5 X 5 M N C I S E ) 

SLOPE *' (FEND-FBEG)*2. 

F0EG2 * F0EG*2 • 

Tl DIFF ■ ABS(F (PEG4 RN(I)«STep) - F 8 eG?»RN ( I ) *SLO p E) 

72 ERRER ■ AMAXl (ERR eR»ASTEP«oIFE) 

IF (ERRER .GT. eRgOAL) GO TO 9] 

I ■ 1*1 

IE (I .LE. 4) GO TO 71 

JE ILEVE.L .(LE-. 3) WRITE (6,67ij B£G^£Np 
o f l FORMAT 1 1 5H NOISE BETWEEN «E15.fl»4H AN0.E15.8) 

IFLAG * 3 


— * INTEGRATION CVfR CURRENT SUpINTERVaL SUCCESSFUL — 

ADD «VINT* TO *CADRE« AND *EPRER* TO "ERROR** THEN SET Up NEXT 
SilfliNTERvALj IF ^NY. 

eo cadre ■ ladre ♦ vint 

ERROR ■ ERROR ♦ ERREF 

IF (LEVEL .LT. 3) GO TO e3 

IE (LEVEL .LT. 5) GO TO 82 

DO 81 1*1 »L 

ELI WPTTE L6» 692 > I* LT (l.»_Jl • J.*JiL) 

82 WRITE (6.682) VINT .ERRER »L . IT 

682 FORMAT ( 12H INTEGRAL IS*E16.8*7H» ERR0R t E15.8.9H FROM T(* 

• I1.1K..I1 »lH) ) 

C 

83 IF (RIGHT) GO TO 85 

ISIAGf * LSI AGE - 1 

IF (ISTAGE *EC. 0) RETURN 

c 

REGLAR • REGLSV l ISTAGE) 

BEG * BEGIN(ISTAGE) 

END • FINIS(ISTAGE) 

CURESlT CUPEST - ESTJl5TA.aE*4T ♦ VjNT 
IEND ■ IBEG - i 
FEND • TS(IENC) 

IBEG ■ IBEGS (ISTAGE) 

GO TO 94 


CA0RF427 
■■ CADRE428 
CADRE429 
. CADRE430 
CADREA31 
CA0RE432 
CADREA33 
CADRE434 
CA0RF435 
CA0RE436 
CADRE437 
CADPEA38 
CADRE439 
CAOPE440 
CA0RE441 
CADRE462 
CA0RE643 
:A0RE*44 
0A0RE445 
CADRE446 
CADRE447 
CA0RE448 
CA0RE449 
rADoF450 
CA0RE451 
CADRE452 
CADRE4_5.3 
CADRE454 
CA0RE455 
CA0RE456 
CA0RE457 
CA0RE458 
C.A0RE459 
CADRF460 
CADRE461 
CADRE462 
CA0RE463 
CADRE464 
CADRE465 
CADRE466 
CA0RE467 
CADR.E668 
CADRE469 
CA0RE470 
'•A0RF47I 
CADRE472 
CA0RE473 
CADRE474 
CA0RE475 
CA0RE476 
CADRE477 
CA0RE478 
CA0RE479 
CA0RE480 
CA0RE481 
CADRE482 
PADRP483 
CADRE484 
CA0RE485 
CADRF486 
CADRE487 
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85 CURtST « CURE$T ♦ VINT 


cadpeabb 

STAGE ■ STACE«2. 


CADRE489 

-ISNO * IBEG 


CADRE490 

I 8 EG » IBEGS(ISTAGE) 


CADRE491 

END * BEG 


• CADREA92 

BEG = BEGIN(ISTAGE-) 

0 

CADRE493 

FEND = FBEG 


CA0RE494 

F8EG a TS(IBEG) 

^ 

CA0RE495 


-GO m 5. ' 

CADRF496 

rAnorAQi 

INTEGRATION over CuRFEnT SUbINTfRVaL IS tNSUCCESSFUu— 

■ f 

■ CA0RE498 

L_ *ARK. SUB-INTERVAL- FOR FLRJHER SUfint VISlnN. SFT UP NEXT SUB INTERVAL ; 

CADRF499 

90 reglar - .true. 


CA0RC500 

9l IF (ISTAGE .EG. MxSTGe) 

GO TO 950 

CA0RE501 

xf, (level ,lt.- s' 

GJO XCL 93 

CADRF502 

DO 92 1*1 tl 


CA0RE503 

92 WRITE (6*692) I * < T * I »• J > *J*T *L) 


CADRES04 

6.9.2- FORNA TCI 5.7 E-l 6 ^ 8 / 3 El 6 -. fi ) 


CADRE505 

93 IF (RIGHT) 

GO TO 95 

CA0RES06 

REGLSVdSTAGE.l ) a REGLAR 


CADRE507 

QpA|N ( ) s REG 


CADRFS08 

I0EGS(ISTaGE) * I BEG 


CADRE509 

STaGE a STaGE/2* 


CADRES10 

94- RIGHT* ._TR(JE* . 


-CA0RE5U- 

8EG * (BEG.ENc)/2. 


CA0RE512 

I8EG a ( IBEG+iEND) /2 


CADRES 13 

TS(IBEG) a _TS(IBEG)/2. 


CADRF514 

FBEG B TS(IBEG) 


CADRE515 


GO TO 6 

CADRESI6 

95 NNLEFT.La. I8EG_- IeEC*S( IST.AGE) 


CADRE5JL1- 

if (Iend^nnleft ,ge* NAXTS) 

GO TO 90C 

CADRES18 

III * IBEGS(ISTAGE) 


CADRES 19 

II * IEND 


-CAQRES20 

DO 96 1*1 I I • IBEG 


CA0RE521 

II a II ♦ l 


CADRE522 

96 TS(II) = TS C I) 


.CADRES 2 3. 

DO 97 I s IBEG » 1 1 


CADRES24 

TS (II I ) = TS ( I ) 


CADRE525 

97 III * IJI ... .♦ l .... 


CADRF526 

IENC a IEND ♦ i 


CA0RE527 

IBEG * IEND - NNL£FT 


CA0RE528 

FEND- a._FBEb 


CA0RF529 

FBEG a TS(IBEG) 


CADRE530 

FINIS(ISTAGE) * END 


CA0RES31 

EAiO ■*- BEG— 


-CADRF532 

BEG * 8EGIN(I«TAGE) 


CA0RES33 

BEGIN(ISTAGE) a EM) 


CADRE534 

REGLSV (ISTAGE) ■ reglar 


.CAGRE535 

ISTAGE * ISTAGE ♦ 1 


CA0RES36 

REGLAR * REGLSV ( ISTAGE ) 


CADPE537 

ES-T (ISTAGE) * V1N'. 


CAORFS36 

CUREST a CLREST ♦ ESTdSTAGE) 


CAORES39 


GO TO 5 

CAORE540 
■ rAnorBAi 



■ W.U.Rt5.T.i 

— FAILURE TO HANDLE GIVEN INTfgR* T lON problem — .... 

• CA0RE542 

900 TF (LEVEL .GE. 2) WRITE . (6.690?) 

bEg. eno 

CADRE543 

6900 F0RNAT(37H TOC MANY FUNCTION E VALUATIONS -AROUND/- 

CA0RFS44 

* 10X»Eie.8 f 4H AN C » E 1 F. B) 


CADRE54S 

IFLAG a 4 


CA0RE546 


GO TO 999 

CADRE547- 

950 IFLAG a 5 


CADRE548 
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IF (LEVEL .LT, 2) GW TO 99* CADRES** 

IF (LEVEL ,LT. 5) GO TO 959 CADRE550 

DO 95E I»1*L CADRE551 

958 WRITE ie»69?> I » \ j M * J) • J«?*L> CADRE5S2 

959 WRITE (6 »6959) BEGt EkD CA0RE553 

6959 FORMAT a2X38HlNTEG9ANp SHOWS sINGULaP BEHAVIOUR ft? CA0RE554 

• 20hUM<NOWN TYPE 8ETWEENF15.8,4H AN0E15.8) CADRE555 

999 CADRE « CURES! $ vI*! CA0RE556 

. RETURN CADRF557 

END CADRE558 
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SECOND 


SECON 1 
SECON 2 
oECON 3 
SECON ‘4 
SECON 5_ 
SECON 6 
SECON 7 
-SEC ON 5_ 
SECON 9 


call second <x> secon io 

X_ j jyARlABLE F Oft- R£-tUi^N_QE_JLCJLMUU A T.ED_C£jj— XlMEL_lN— SECON 1L 

SECONDS AS A REAL NUMBER ACCURATE To SECON 12 

MlLLlSFeONoS, THIS ROUTINE USES THE SECON 13 

•TtmE MS* R fQ UFST WHICH IS A NON-STAnDaRD SECON 14 

FEATURE OF fwE PUROUE OPERATING SYSTEM. SECON 15 

title second • return accumulated cpc time in seconds, secon 16 

-TxTLE- FJ1IK.PJT06RA.F, -SECON 1 1_ 


BSS2 1 

TlMEMS 

Sju xo-io. 

°X1 Xl 

NX1 Xl 

J»X4_. .X.6. 

NX6 X6 

FX6 X6/X1 

-SA6 Bj 

EQ SECOND 

SPACE 4 

_END_ 


ENTrY/fxIT 

read accumulated CPU time in milliseconds 


return 


SECON 18 
SECON 19 
SECON 20 
SECON 21 
SECON 22 
SECON 22_ 
SECON 24 
SECON 25 
SECON 26 
SECON 27 
S£':ON 28 
SFC ON 29 


ident SECOND 
SE-CQNJD- 
SPACE 4 

SECCNC - RETURN ACCUMULATED CPU TIME IN SECONDS. 
David s. codson. 09/*T/7i. 

SPACE 4 

fortran call. 
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c 

X_ 

C 

C 

X- 

C 

C 

X- 

c 

c 

X 

c 

c 

-C- 

c 

c 

c 

c 

-X 

c 

-C 


-X 

c 

c 

-t 

c 

c 

X 

c 

-X 

c 


c 

c 

-X 

c 

c 

-c 


SUBROUTINE SPLINfp (NO kNOT) 

NONLINEAR SPLINE approximation 

PURDUE UNIVERSITY 

SUPPORTEo by THE NATIONAL SCIENCE FOUNDATION 


SPUN 

.SPUN. 


OP-4052 »GP-7163 


please report any cases of inopewation to the authors. 

THANKS 

FUNCTION 

NO. OF SWEEPS THRU OPT 
IMPROVEMENT NEEDEO TO REPEaV 


SPLIN 

SPUN 

SPLIN 

SPUN 

SPLIN 

SPUN 


1 

2 

-3_ 


4 

5 

6 
T 
8 

_SL 


control parameters 
ITER 

-BO (INOPTl - 
EPSERR ( IN SWEEP) 

DIST (IN OPT NEAR 3o.Bo> 
INPL P 


THE following is the main PROGRAM for varyknot 


IMPROVEMENT neeoeo to repeat 
KEEPS KNOTS SEPARATED 
-NO .—OF PASSES 1THR1LQPI 


01 MENSI ON 


INFO < 16) 


COMMON INPUT SERVES AS INPUT TO FXOKNT 

AEE-PXQKN-T -EOft.QEFIMT.IONt O F . VARIABLES - 
COMMCN/INPUT/LXtXx(lo5> »U<l(jO> ♦ JADD.AOOXl (26) .MODE 
COMMON OUTPUT SERVES *S OUTPUT FROM FXOKNT 

-SEE-EXOKNI— POp. DEFINITIONS- OF VARIABLES 
COMMON/ OUTPUT /UPRROR (ICO) »PcTL ( 100) »XIL (281 .COEEL (27*4) . 

* V0RDL(28,2).KnCT.LMAX,InTeRV 

COMMON OTHER SERVES as COMMUNICATION BETWEEN OPT. SWEEP AND HERE 
L*I • NUMBER of INTERIOR KNOTS. LXIl * LXIM. LXI2 ■ LXI*2 
-X .-NUMERICAL CONTROL VAR IABLE USED BETWEEN OPT ANO_ SWEEP 

change * ditto 

error ■ current value of the l-2 error - souaReo 

-AXC- J-XEEIRED-ACCURACY OF L -2 -ERROR— 

XI (28)* ARRAY FOR KNOTS 

COMMON/ OTHER / LXI .LXIl .LXI2 .C .CHANGE .ERROR .ACC* XI <28) 

-S.PUN-3A 

ACC a .1 AND ITER a 4 TO 8 SEEM 70 BE 0000 VALUES FOR TYPICAL USESSPLIN 37 
ACC a .1 " SPLIN 38 

44XR -a_8- .SPLI N -39 

SPLIN 46 
SPUN 41 


SPLIN 10 
SPLIN 11 
SPLIN 12 
SPLIN 13 
SPLIN 14 
SPLIN L5 
SPLIN 18 
SPUN IT 
SPLIN 18 
SPLIN 19 
SPUN go 
SPUN- BL 

SPLIN 22 
SPLIN 23 

_SPUN_24- 

SPLIN 25 
SPLIN 26 

SPU N _2t. 

SPLIN 28 
SPLIN 29 
S P_L I N_3o 
SPLIN 31 
SPLIN 32 
SPUN 33 
SPLIN 34 
SPLIN 35 


C IF 

C 
C 

X- 


•**inpo is simply an identification ** DATA*** 

READ IN NO. OF POINTSaLX AND THE OaTa XX ANO U 
IF NOKNOT.GE.2* THEN READ IN LXI2*N0KN0T KNOTS**# 

-*JL' -OTHERWISE -PROGRAM CHQOSgS LX12 — N OKNOT EQUlS P ACEp. KNOTS 
LXl2 a iABS(NCKNOr) 

•ncknot* is .gt. ?,* read noknct knots (incl.boundary points.* 
)- 


••check on given data 

ANo FROM PRESENTING- UNOROEREO XX ARRAY 

IERROR • 6 

IF <LX .GE« LXI2»2 .AND. Lx *LE. 100) GO TO 3 
WR I TE ( 6 . 6 62 > L X 
IERROR ■ 1 

GO TO 7 

-I F — gX!2 .OE. -3 .AND. LXj2 »LE. 281 GO IQ_4- 


WRITE (6»f4Q) NOKNOT 


SPLIN 48 
SPLIN 49 

SPLIN 52 
SPLIN 53 
-SPU N is 
SPUN 56 
SPLIN 57 
SPUN SB 
SPLIN 66 
SPLIN 61 
SPLIN 62- 
SPLIN 63 
SPLIN 64 
SPLIT? 65. 
SPLIN 66 
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IERRON * 1 
■DO 6 L«2»LX 

TP txx-t u» xx( f in 

WRITE (6*664) L*XX(L)*U<L) 
IERROR ■* TERROR ♦. T 


IF (IERROR *IT» f) 
WRITE (6*666) IERROR 
STOP 


C 

C 

C 

C 


14 


••INITIALIZE 
IF (K'OKNqT .fiT. 


04 




OO TO 1* 


GO TO JO 


c 

c 


26 


30 


35 


C 

C 


when noknot js nEo.» introduce -noknot equispaceo knots 
xi tu ■ xxtu 

XKLXI2) « XX(LX) 

DEL ■ (Xx (LX) - XX(in/FL0At(LXI2-l) 

DO 26. J * 1,LXI? 

XHJ-i) * *I(J-2J ♦ DEL >' . 

Sil UF INITIAL APPROXIMATION . i 

ADDXi(l) ■ Xllll 
ADDXI (2) • XI (LXI?) 

LX I] a LXI2-1 
LXI a LXil-1 
NODE a 6 
JAPP * LXI2 
DO 35 J a 3»LXI2 
ADDXI (J) • XI (J-i) 

ERROR ■ PXDKNT(O) 

•••NOTE. MODE H ct* SET ECUAL 
**• THIS IS TEMPORARY DEBUGGING AND 
WRITE <6»6ll> CLaX-XlU , U ( L )»L»4 »LA1 
WRITE (6*612 ) NOKnoT»ItER 
WRITP ( 6*900 ) (XI ( I ) » i*l «Lx!2) 

FORMAT (2 rH KNOTS PRIOR TO OPTIMIZATION/ ( 9F12.*)> 


SPLIN 
SPUN 
spltn 

SPLIN 
SPLIN 
SPLIN 
SPUN 
SPLIN 

SPLIN 
SPUN 
SPLTN 
SPUN 
SPLIN 
SPUN 
SPUN 
SPLIN 
SPLIN BA 
SPLIN 85 
SPLIN 86 
SPUN. 87 
SPLIN 88 
SPLIN 89 
SPUN 90 
SPLIN 91 
SPLIN 
SPUN 
SPLIN 
SPUN 
SPLIN 


67 

68 
AO 

76 

71 

72 

73 

74 
2 

76 

77 
18 

79 

80 
81. 
82 
83 


92 

W 

94 

95 

96 


TO 1 
TESTING 


OUTPUT **• 


6-40 


WRITE ( 6 « 640 ) 

FORM AX (.49 X »22H**« 

MOCE ■ 1 

JACD a 6 

0 UM 8 a FxQKNT ( 1 * 

return 


final output **•///> 


SPLIN 97 
SPLIN 98 
SPUN 99 
SPLIN100 
SPLlNloi 

qOO FORMAT (2 rH KNOTS PRIOR TO OPTIMIZATION/ ( 9F12.*)> SPUN1Q2 

C ’ ■ ” SPUN103 

c OPTIMIZE knots SPLIN 104 

SPLIN1Q5 
SPLIN106 
SPLIN107 
IPUNloa 
SPLIN109 
SPLIN llo 
SPLINIU 

••••• 3 

SPUN114 

610 FORMAT (2I4» / (?Pl2.8i ) SPUNllS 

611 FORMAT (ilh GIVEN DATA// ( Ia* 2F14.8> ) SPLIN116 

612 FORMAT ( 1 h / 32H NO, OP INITIAL KNOTS *-13/ SPLlNllT 

i in iter *,.u' SPLiNlia 

660 F0 RMaT( 32H1 KNCT CONTqQL PAOAMeTER NOKNOT »I 3»19H NOT WITHIN 80UNDSSPLIN119 
*.) SPLIN120 

662 FORMAT <26H NC» OF DAT* POINTS* LX * l4»44H»N0l WITHIN THE BOUNDS AS PUN 12I 
•BS(NCKNOT) *2 AND'- VOOl , - SPLIN122 

664 FORMAT ( 12 h DATA POINT l4,2Fi4,e»24H NOT IN ASCENOING OROER.) SPLIN123 

6*6 PORMATtRjw *•• CORRECT INDICATED T .3»28H INPUT ERR O R (A l AND BESTART SPLIN 1 2A 

*,) SPLIN125 
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c 

C 

c 


c 

c 


SUBROUTINE SWEEP (fTRR) 

KvaRY *1 • INDp* Qe KNfll BE IN G V ARIE D 

SUBROUTINE OPT (I) OPTIMIZES ith interior knot 

COMMO N/INPUT/DL» XX U 6 «->-* U-l 1 00 > »JA DO»AD 0JO126J j_MO£E 
COMMON/ OUTPUT /UeRROR < 1«0) .FcTL <100) *XlL (28) .COEFL < 27*4) » 

* VOROL (28,2) .KNOT. UMAX, INtERV 

COMMQM/ qTHER / ( . XT. I «Il t L«T?»e . CHANGE i ERRQR tACCj_ XI (2 8 ) 
AT All TIMES. ERROR CONTAINS (L2 ERROR)**? OF CURRENT B;A. 

J1ER a ITRP 

C **NEXT CAROS SeT NUMERICAL ANALYSIS CONTROLS 

EPSERR ■ ACC/2.5 

CHANGE * .4*F.lOAT(LXT)- 
C 

10 KVARV ■ LXI 

Q • CHANGE/FLOAT (lXI) 

C **• THIS IS TEMPORARY DEBUGGING AND TE5IING OUTPUT *•* 

C*** WRITE <6.902)^ITER»Q w • 

change • 0* 

PREVER ■ ERROR 
MODE-*- 2 
gADD ■ 0 
knct ■ knot • i 

20 CONTINUE 

C **• THIS is TEMPORARY DEBUGGING and TESTING OUTPUT *•* 

_£•** WRITE (6*900) KVARY 

C*t00 FORMAT (1H ///8H VARYING* 14 •$6MTH INTERIOR KNOT) 

C*** WRITE • <6*901 ) ERROR 

C*901 F0RMaT( 16M SC. Ojt L^HtR R oft *E 1 6*6)— 


GO TO 22 


-21 

22 


C- 

C 

£- 

C** 

C** 

C 

C 


CALL OPT(KVARY) 

KVARY ■ KVARY -1 
gADD * JADD * 1 
IF ( gADD .LE. 1 ) 

K* J A PP 

DO 2i I a 2 »JADD 

Ka 

A00JLl4K*il * ADDxi(K) 

ADOXt(l) ■ XKKVarY ♦ 2) 

KNCT a LXI1 - JAOn 

JtOOE * 2- 

0UM8 a FxOKNT(0> 

IF ( KVARY .NE. 0 1 GO TO 20 

the last call to fxDknt procuces the b.a. using all knots*. 

SINCE THEN AD(JXI CONTAINS ALL KNOTS 

error * dumb 

**• T HF FOLLOWIN G TWO CARPS PRCPLCE PRINTED. QUZPJUI OF Ll t L2 *L- 

gADD a 6 

OUMM a FXDKNT (2) 

«*IF CHAi'OE IN FRHOR IS RIG ENOUGH MAKE ANOTHER SW£EP» ELSE 
IF (PREVeR-ERROR ,LE. EPSEPR*PREVER) GO TO 60 
ITER a ITER-1 


SPLIN130 
SPLIN131 
SPLTNMp 
SPLIN13J 
SPLIN134 
SPLIN13S 
SPLIN13G 
SPLIN137 
1PLTN138 
SPLIN139 

SPLINI40 

SPLlN Ui 

5HLIN142 

SPLINI43 

SPLltOAA. 

SPLIN145 

SPLIN146 

SPLlNlA? 

SPLINI48 

SPLIN149 

SPLTNlSd 

SPLlNlsi 

SPLIN1S2 

SPLIN1SJ 

SPLINI54 

SPLIN15S 

SPJ_iM56- 

SPLINIST 

SPLIN158 

SPJLI.NI59 

SPLIN160 

SPLIN161 

S p LlNU2 

SPLIN163 

SPLIN164 

J5PUN14* 

SPLIN166 

SPLIN16T 

SPLlNlftg 

SPLIN169 

SPLIN170 

SPLINlTl 

SPLIN172 

SPLIN173 

SPLTNI74 

SPLIN175 

SPLIN176 

splinltt 

SPLIN17R 
SPLIN179 
INF SPLINlao 
SPLTNlRl 
SPLIN182 
SPLIN183 
QUITSPLIN184 
SPLIN185 
iPLINlFA. 
SPLIN187 
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C «*CHECK NUMBER OF PftSSfS THROUGH SWEEP SPCXN188 

IF(ITEP.EO.O) GO TO 40 SPUN189 

6( TC U SPtTNlop 

♦0 CONTINUE SPLJN191 

C SPUN192 

c in final version go to 40 t go to 60 are replaced by return spljnioj 

c *«• THIS IS TEMPORARY DEBUGGING AND TESTING OUTPUT SPUNI94 

C**» WRITE (6*820) * SPLIN195 

BETliRN SPLIN196 

60 CONTINUE SPLIN19T 

C THIs IS TEMPORARY DEBUGGING AND TESTING OUTPUT SPUIN198 

C**» WRIT; (6»6idl SPLIN149 

RETURN SPLIN200 

c*6io format (54H *•• sweep discontinued - insufficient change in error) splinzoi 

ff? fl FORMAT (jf,h *•* Nn» OF A LLOMAB LE SWEEPS U1ED UP) SPUIN202. 

END SPUN203 

C SPLIN204 

C SPLIN206 
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SUBROUTINE opt C I n 
T RFFrRP TO the TTH IuTERIOR KNOT 

OPT PINOS THE OPTIMAL ITh KNOT BETWEEN THE I- 1 ST aNO I*lST KNqTS 
The REMAINING knots are WELD FIXED. 

INDLP * - A BOUND ON ThE NUMBER OF TRIES ALLOWED 
FOR IMPROVEMENT OF THE ITH KNOT 

c • multiplication factor which should decrease as a 
function af the no+ of sweeps Thru sweep 

0 IS ALTERED iN SWEEP 

jCOHNON/INPtT/LX»XX(l 6 i)> »U( 16 o) »JADDfADDXl ( 26 Jjm 6 dE 
COMMON/ OUTPUT /UfRR 0 R( 160 ) .FcTL< 100 ) .XIL< 28 > »C 0 EFL( 27 « 4 > » 

• VDRDL( 28 t 2 wNNCT»LMAX,lNTERV 

COMMON/ OTHER / LXjjtLXll >LXI 2 »C .CHANGE .ERROR «ACC* XIl 2 fli 

I ■ II 

••numerical analysis parameters set here 

INCLPmB 

BO • ACC«ERROR/FloAT(LXI) 

WST a .+4625 
H ■ XI(I» 2 )-XI(I) 

ALCW a XI (I) ♦ DlsT*H 
AMlGH ■ XI<I« 2 ) • OlST # H 
LPCNT* 0 
MODE a 3 

••BEGIN . FIND THREE VALUES FOR THE ITH KNOT 

SUCH THAT L 2 -ERR 0 R AT MIDDLE VALUE* A » IS LESS THAN 
ERROR at LEFT VAluE « AlEFT, AND AT RIGHT VALUE* ARIGHT 
A ■ XI(I* 1 > 

E » FXOKNT(A) 

ALEFT »- A ♦ C«<Xi tn- 5 ) 

ELEFT ■ FXDKNT (ALEFT) 

•*• THIS IS TEMp 0 RARy DEBUGGING ANO TESTING OUTPUT •«* 

ARIGHT a $, 

ERIGWT ■ O. 

WRITE ( 6 , 900 ) ELEFT »E»ER I GHT. ALEFT * At ARIGHT 
Sflfci a SlGNiI«*ELfFT-E) 


IF (SGN.gE.O.) GO TO 20 

GO TO 60 

t 

C ••SEARCHING for new knot to THE RIGHT 

10 ALEFT ■ A 
-ECETT ■ E 
A ■ ARIGHT 
E • BRIGHT 

20 - ARIGHT ■ A * G*lXi<U£U Ai 

c 

C ••BUFFER To prevent coalescing of KNOTS 

30 IF ( iMIGtUfiE •.ARI ghT 1 GO TO 40 

AA ■ AHIqH 

c «•• this is temporary debugging and testing output •*• 

£•••• WRITE ( 6 *M 0 J I 

GO TO 199 
C 

40 ERiGHT . a EJLQtSNT (ARIGHT? 

C ••• THIS IS TEMPORARY DEBUGGING AND TESTING OUTPUT *•* 


SPLIN 246 

SPLIN247 

SPLIN24G 

SPLIN2A9 

SPLIN2S0 

SPLIN2R\ 

SPLIN252 

SPLIN2S3 

SPLTN 2 RA 

SPLIN258 

SPLIN25G 

SPLTN2.RT 

SPUN298 

SPLIN259 

SPLTN260 

SPLIN261 

SPLIN262 

SPLIN2AS 

SPLIN264 
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C**** WRITE (6,900) ELEFT, E, ERIGHT, ALEFT, A , ARIGHT 


T? 

C 


C 

tr 


IF (E.LE. ERIGHT) 

•♦CHECK TO STOP OPT 
IF(E -ERIGHT. LE.BD .OR. 

~5t > l p cn t- = l pc nt p i 

IFCSGN.GT.O.) GO TO 10 


GO TO 100 


LPCNT .GT. INOLP > GO TO 240 


-a 

C 

C 


»»S E ARCH irtTT-F OR HE W KNO T TO T HE L EFT 
60 ARIGHT = A 
ERIGHT = E 

E - ELEFT 

70 ALEFT = A ♦ QMXI(I)-A) 


♦♦BUFFER TO PREV ENT COALESCING OF KNOTS 
AA = ALOW 

*•♦ THIS IS TEHPORARY DEBUGGING AND TESTING OUTPUT 




C ***» WR ITE (6,6 2 0> I 


GO TO 19* 


C 

C 

C 

C 


C 

-tr 

c 

c 


9TT F L EFT - FXP KNT ( AL EF T) 

*♦♦ THIS IS TEHPORARY DEBUGGING AND TESTING OUTPUT 
WRITE (6,900) ELEFT, E, ERIGHT, ALEFT, A, ARIGHT 
IF (E^LE~ . E L EFT) 


♦•CHECK TO STOP OPT 
TF t E-ELEFTv L E . B P . OR. 


L P CN T .G T . I N O L P . 

GO TO 50 


GO T O 2?r 


♦♦R E QUIR ED ~3 VALU E S HAVE BE EN FO UNO 


SPLIN265 

SPLIN266 

S P LIN26 7 

SPLIN268 

SPLIN269 

SP L I N2 7IT 

SPLIN271 

SPLIN272 

S P L I N2 73 

SPLIN274 

SPLIN275 

SP L I N 276 

SPLIN277 

SPLIN278 

S P LIN2 79 

SPLIN280 

SPLIN281 

SP LIN 2 8 2 

SPLIN283 

SPLIN284 

SP L I N28 5 

SPLIN286 

SPLIN287 

SPLIN288 

SPLIN289 

SPLIN290 

SP L I N2 9r 

SPLIN292 

SPLIN293 

SP L I N294 

SPLIN295 

SPLIN296 

SPLIN29 7 


FOLLOWING COPE FINOS PT. AT WHICH MIN OF PARABOLA CURVE PASSINSPLIN298 


THRU THE ERROR VALUES AT THE PTS ALEFT, A, ARIGHT OCCURS 
100 OXLEFT * ALEFT - A 
OXRGHT * ARIGHT - A 
OYLEFT * (ELEFT-E) /OXLEFT 
PY RGH T * ( E R I GH T - E V7 0XR 6H T 
OIFF * OYLEFT - OYRGHT 

IF (OIFF .EQ. 0.) GO TO 200 

DE L" 8 «5 / DIFF» (P X R6H T » PT L EFT - DX L EFT » D Y R GH T) 

EPREO * E*DEL* (DYRGHTM DXRGHT-DEL) /( ARIGHT -ALEFT) *DIFF) 

ABEST * A ♦ PEL 
E B EST 8 FXP KN T( AB E S T ) 

*** THIS IS TEHPORARY OEBUGGING AND TESTING OUTPUT *♦• 
WRITE (6,900) ELEFT, EBEST, ERIGHT, ALE'T, ABEST, ARIGHT 


SPLIN299 
. S P L I N 3 00 
SPLIN301 
SPLIN302 
S P L I N30 3 
SPLIN304 
SPLIN305 
S P L I N 3 0B 
SPLIN307 
SPLIN308 
- S P L I W 30B 
SPLIN310 
SPLIN3i:\ 
• S P L I N 3 1 2 

♦♦DETERMINE WHETHER ABEST GIVES BEST APPRX ANO MAKE APPROPRIATE SPLIN313 
SWITCHING OF THE AI*S DEPENDING ON SIGN OF DEL SPLIN314 

-TF ‘tEBESTvLE.ET S O TO 1 30 S P L I W 3 1 5 

IF (DEL) 110, 203, 120 SPLIN316 

110 ALEFT = ABEST SPLIN317 

“ELEFT 8 EBEST SP L IW3I B 

GO TO 170 SPLIN319 

120 ARIGHT = ABEST SPLIN320 

E R IGHT " 8 EBEST ~SP L I N 3 21 

GO TO 170 SPLIN322 
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C 

(;♦♦♦ 



130 IFCOEL)148»203» 150 
140 ARIGHT « A 
F RIGHT t t 
GO TO 160 
150 ALEFT a A 
EtEFT a E 
160 A s ABEST 
E « EBEST 


••FOLLOWING 


TESTS DETERMINE WHETHER OR NOT TO 


S 

c 

C REITERATE PARABOLA MINIMIZATION PHASE 

170 IF (ABStEPRED-EBEST) .LT.5.*8U) GO TO 210 
IFCLPCNT.GT.INDLP) 

LPCNT s i or»NT*l 


GO TO 203 
-GO TO tOO 


199 ETRY a FXDKNT<AA» 

IF ttoLT iOTRYI GO TO 203 

A * AA 
E a ETRY 

•200 C HANG E - CHAN GE * AOSTA - X H I *1) ) /H 
xicm) * A 
ERROR a E 

C ••• THIS TS T E M P ORAR Y DEB UGG I NG AND TE S TI NG OUTPUT 
C*** WRITE (6,900) ELEFT ,E,ERIGHT, ALEFT, A , ARIGHT 
RETURN 
C 

C IN FINAL VERSION GO TO Zlu, iS REPLACEO BY GO TO 20C 

210 CONTINUE 




THIS IS TEMPORARY DEBUGGING AND TESTING OUTPUT 




♦ a* 


C*** WRITEC6, 640) LPCNT 
GO to 200 
2TO A a AtEFT 
E * ELEFT 

C *•* THIS IS TEMPORARY DEBUGGING AND TESTING OUTPUT 

C**» WRITE 16, 640) LPtJNT 
GO TO 200 
240 A » ARIGHT 

c a ERTGHT A •/ 

C ••• THIS IS TEMPORARY DEBUGGING AND TESTING OUTPUT 

C*** WRITE16, 640) LPCNT 
GO TO 200 

C*610 FORMAT (46H •** OPT DISCONTINUED - KNOT BEING OPTIMIZED (,I2,35H) 
C****10VE0 TOO CLOSE TO RIGHT NEIGHBOR) 

C » 62 0 F OR M A T 1 4 6 TT w OPT DI SC O N TI NU ED - KNOT BEI NG O P T I M IZED t,I7,34H) 
c *a»*iovED TOO CLOSE TO LEFT NEIGHBOR) 

C»640 FORMAT C24H ••• OPT DISCONTINUED AT,I4,31H - INSUFFICIENT CHANGE 
C»** • ERROR) 

C*900 FORMAT (25H PARABOLA - ERROR VALUES ,3E20 .6/12X,13HAI VALUES , 
C*** 1 3E20.6) ; 

END 


SPLIN323 

SPLIN324 

SPL I N32 S 

SPLIN326 

SPLIN327 

S P L I N 3 28 - 

SPLIN329 

SPLIN330 

S P L I N 33 1 

SPLIN332 

SPLIN333 

SPLT N 334 

SPLIN335 

SPLIN336 

S P L I N 3 3 T 

SPLIN336 

SPLIN339 

SPLIN341 

SPLIN342 

SPLIN 3 4 3' 

SPLIN344 

SPLIN345 

SPL7N346 

SPLIN347 

SPLIN348 

SP L I N34 9- 

SPLIN350 

SPLIN351 

SPLIN352 

SPLIN353 

SPLIN354 


SPLIN356 
SPLIN357 
SPLIN358 
SPLIN359 
SPLIN360 
SPLX N 3 6 1~ 
SPLIN362 
SPLIN363 
SPLIN364 
MSPLIN365 
SPLIN366 
MS PL IN 367 
SPLIN368 
INSPLIN369 
SPLIN370 
SPLIN371 
SPLIN372 

SPLIN374 
— SPLIN375 
SPLIN376 
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C H0DE3 = TRUE OR FALSE OEP. ON WHETHER PREV. CALL NAS IN SPLIN422 

C H00E= 3 OR NOT SPUN 423 

C ARG IS EITHER FIXED POINT (M00E.NE.3) TO PICK PRINT-OUT 0PTISPLIN425 

C OR IS FLOATING POINT <MODE=3> TO GIVE NEW VALUE OF KNOT VARISPLIN426 

CHANG E a ARG S P LIN42 7 

IF (MODE.GT.O) GO TO 29 SPLIN428 

C SPLIN429 

TT » »»mO E* tT»~COHP UT E TTASI S" FCT ~ 1 T HROUGH ~ 4 AN TT B. A. fOU HRTO THESPUIT43U 

C THEN SET MODE = 1 AND PUT UERROR INTO U. SPLIN431 


XSCALE = XXCLX) - XX Cl) SPLIN432 

D O 10 Tys,70~ SP UN 43 3 

10 INSIRTU) =0 SPLIN434 
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DO 11 L=1,LX 
UERRORCL) = UIL) 

i ix x clm 


c 

c 


¥ KEN P (L» 

11 WEIGHT fL) = W(XX(L)> 

DO 12 L=2,LX 

1 2 T R P7 W T (L »1T = f XXTL V-XX CL -5 
TRP ZWT < 1 ) = <XX(2)-XX(l)>/2.*WeiGHT(l> 

TRPZWTCLX) = (XXM *) -XX (LX-1)> / 2.*WEIGHT <LX) 

XILC1) = AODXKi) 

XIL (2> * ADOXI ( 21 
IORDERCir e~l. ~ 

IORDER(2) = 2 
KNOT * 2 
INT E RV 8 r 
DO 19 1*1, 4 
ILAST * I 
CALLNUBAS 
DO 19 L*1,LX 

19 UERROR(L> * UERROR(L) - 6C(I)*FCT(L. I» 

HOOE * 1 
DO 20 L * 1 ,LX 

IF (JADD.LE.2), ONLY B.A. BY CUBICS IS COMPUTED 
OTHERWI SE, A ODXim , I.GT.2, CONTAINS ADDITIONAL KNOTS 

GO TO 60 


71 


IF (JADD.LE.O) 

DO 21 I*i, JADD 
A Doxi m * ADtnrrtr*2r 


79- 


GO TO 51 


"Gtr Ttr (40,49, 30 ) , HOOE 


c 

c 

~c 

c 

c 

■xr 

c 

c 

x~ 

c 

c 

~xr 

c 

c 

c 

c 


«* MODE=3 *** MERELY REPLACE THE LAST KNOT INTRODUCED BY 

CHANGE AND RECOMPUTE L2TRR0R. C HANG E ENTERS 

VIA THE ARGUMENT JPRINT = CHANGE. 

THIS MODE SHOULD BE USEO FOR 

MI N IM I Z ING T HE L 2 - E RR O R WR T O T H E KN OT 
INTRODUCED LAST AS IT MINIMIZES THE COMP WORK 
IF H 00E3 = TRUE (I.E., THE PRECEDING CALL TO F XPKNT 

HAS THE SAME ORDER REL TO THE OTHER KNOTS AS THESPLIN477 
PREV INTRODUCED VALUE FOR KNOT. OTHERWISE SPLIN478 

IF MODE 3-FALSEC THE* PREC E DI NG CALL WA S IN SOME O T H ER MSPL1N4/9 
, A FCT IS ADDED WITH CHANGE AS THE ADD. KNOT. SPLIN480 
UERROR IS ASSUMED TO CONTAIN ERROR OF B.A. TO U SPLIN481 


SPLIN435 

SPLIN436 

- S P LIN4 37 

SPLIN438 

SPLIN439 

SPLIN440 

SPLIN441 

SPLIN442 

-SPLIN443 

SPLIN444 

SPLIN445 

SPLIN447 

SPLIN448 

~ S P L I N449 

SPLIN450 

SPLIN451 

SPLIN452 

SPLIN453 

SPLIN454 

" SPLIN45 5 

SPLIN456 

SPLIN457 

SPLIN458 

SPLIN459 

SPLIN460 

S P L I N461 

SPLIN462 

SPLIN463 

SPLIN464 

SPLIN465 

SPLIN466 

"SPLIN467 

SPLIN468 

SPLIN469 

“SPtIN470- 

SPLIN471 

SPLIN472 

'SPLTN473' 

SPLIN474 

SPLIN475 


SO X KN OT « CHANG E 
IF (MODE3) 

M00E3 = .TRUE. 
ERBU T r = FXDKNT 
MODE * 2 
CALL NUB AS 
KN OT SV = KN OT 
MODE * 3 


IS IN A MOOE OTHER THAN 3, THE CHANGE PROPOSED 
NOW WILL BE MADE PERMANENT. 

GO TO 35 


SPLIN483 

SPLIN484 

~SP L I N48 5 

SPLIN486 

SPLIN487 

SPLTNWr 

SPLIN489 

SPLI N490 

SPLIN491 

SPLIN492 
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35 

36 


GO TO 36 

CALL NUB AS 

FX OK W T - A 8S (E RBU T 1 - SC t l LAST) / X S C ALE+B C ( I LAS T ) T 

RETURN 


=i,2*~ 


SPLIN493 
SPLIN494 
SP L I N4 95 
SPLIN496 
SPLIN497 

RETAIN THE FIRST KNOT KNOTS I NTR OD UC ED E ARL IE R SP L I N4 9 8 
(HENCE THEIR CORRESP FCTNS) BUT REPLACE FURTHER SPLIN499 
FCTNS (IF ANY> BY FCTNS HAVING ADDITIONAL SPLIN5D0 

knots a oox kd ,i=l, jatrtn hence sp l i n soi 

IF KNOT. LT. KNOTSV (=NO. OF KNOTS USED IN PREV CALLSPLIN502 
40 THROUGH 49 RESTORES ARRAYS IOROER,XIL, UERROR TO THE STATE OSPLIN503 
ILAS1 = KNOT tt, IN VE RTING THE A C T IO N O F DO It ... TO 14 IN S P L I N 50 4 


40 


41 

42 

43 


GO TO 42 


GO" T O 50 


44 

45 


47 

46 

49 


IF (KNOT .LT.KNOTSV) 

KNOT = KNOTSV 
TP (.NOT . NO DE S) 

DO 41 L=1,LX 

UERROR (L) = UERROR (L> - BC(ILAST)*FCT(L, ILAST) 

CO TO 49 

00 43 L=1,LX 
UERROR (L) = CUBERR(L) 

IP TKNOT .LE.2T CO TO 48 

IDUM = KNOT ♦ 1 
DO 45 IO=IOUM, KNOTSV 
IN S ER T - 1N S IRT (I LAS T> 

ILH3 * I LAST - 3 
00 44 K= INSERT, ILM3 
I OR OE R( K) =■ IOROER«Ki-l) 

XIL (K) = XIL (K+i) 

ILAST = ILAST-1 
DO 47 1=9, ILAST 
DO 47 L=1,LX 

UERROR (L) = UERR0R(H - BC(I)*FCT(L,I) 

CO TO 49 

XIL (2) = XIL (ILAST-2) 

IOR DER < 2 ) =2 
KNOT = “2 
IF (JADD.GT.Q) 

ILAST = KNOT ♦ 2 
INTERV = KNOT - 1 


GO TO 51 


GO TO 60 


** *HOOE *1> 2 *** 
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SPLIN506 
SP L I N 5C7 
SPLZN508 
SPLIN509 
SP L I N S 1 0 
SPLIN511 
SPLIN512 
SP L I N 5 1 3 
SPLIN514 
SPLIN51 5 
SPLIN516 
SPLIN517 
SPLIN518 
S P L IN 5 1 9 
SPLIN520 
SPLIN521 
SPLIN522 
SPLIN523 
SPLIN524 
S P L I N 525 
SPLIN526 
SPLIN527 
S P LI N528 
SPLIN529 
SPLIN530 
S P LIN 53 1 
SPLIN532 
SPLIN533 
SP LIN 5 34 
SPLIN535 
SPLIN536 


50 

51 


IF (JADD.LE.0) 

DO 52 10=1, JAOD 
XKNOT = ADDXI(IO) 
CALL NUBAS 
DO 52 L=1,LX 


ADO JAOD BASIS FCTNS, I.E., FOR 10=1, JAOD, 

CONSTRUCT FCT ILAST WITH ONE MORE KNOT, VIZ. 
XKN0T=A00XI(I0), THAN THE PREVIOUS LAST FCT, 

OPT H O NORMAL IZE IT OVER ALL PRE V I OUS F C T NS, T HENS P LIN 5 3 7 
COMPUTE THE COORDINATE BC(ILAST) OF U HRTO IT, SPLIN538 
SUBTRACT OUT ITS COMPONENT FROM UERROR. SPLIN539 

GO TO 81 SP LIN 5 4 P 

SPLIN541 

SPLIN542 

SP L I N 5 43 

SPLIN544 


52 UERROR(L) = UERROR(L) - BC (ILAST) *FCT (L, ILAST) 

60 FXOKNTa 00T(31, 2) /XsCAut 
KNOTSV = KNOT 
Cl MOOES = .FALSE. 

IF (IPRI NT.EO.O) RETURN 


SPLIN545 

SPLIN546 

SPLIN547 

SPLIN548 

S P L I N 5 4 9 

SPLIN550 
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C VARIOUS PRINTING IS DONE OEP ON THE ARG = IPRINT 

GO TO (70*60,90) > IPRINT 

COMPUTE COEFFICIENTS OF B.A. ANO PRINT 
**** BEST APPROXIMATION PRINTOUT **** 

FORMAT IS" 

KNOTS XI(J) CUBIC COEFFICIENTS P(I,J) IN 

INTERVAL (XI (J), XKJ+D) 

E R R O R C URV E (SCAL EO) 

THE FOLLOWING FORTRAN CODE FINOS VALUES AT X OF THE 

A PP R OXIM A TIO N F R OM TMTS O U TP UT 

I=LXI2 

1 A*X-XI(I) 

TFTA) r, A7V 

2 1 = 1-1 
IF( I) 3,3,1 

3 1=1 

4 V=P(I,1) ♦ AMP(I,2)*AMP(I,3)*A*P(I,4)) ) 

, FOR A SUBPROGRAM USE COMMON/OUTPUT/..., COMMON/OTHER/. .. , 

, THE V BECOME CO EF L ( I , 1) C OE FL ( I ,2)^ C OE F L( I ,3) , C 0E F L(I,4) 


70 WRITE (6, 610) 

OO 72 T*T»KNOT 
ILOC = IORDER(I) 

DO 72 Lsl, 2 

T2 V O R O H I , XT '= -AR IT Hl TtT. ,I LA ST fBCTl, VOR O (l ,~ ILOC,L) ,1) 
SEE COMMENT IN »DOT» ABOUT THE ♦ARITHl* ROUTINE. 

CALL EVAL 
OO 73 1= 1, INTE RV 
WRITE(6, 620) I,XIL(I) 

73 WRITE (6 ,630) (J,COFFL(I ,J ),J=1,4) 

610 FORMAT (42X, 5HKNOTS, 22X, 18HCUBIC COEFFICIENTS//) 

620 FORMAT (35X, 3HXI(, 12, 3H) =, F12.6) 

070 FORMAT C67X,2HC(, 11, 3H) *,E16.6T 


^♦CO MP UTE L2, LI, M AX ERRORS AND PRINT 

ERR LI = 0. 

ERRL99* 0. 

“OO 62 L=1,LX 

OIF = A8S(UERROR(L>*WEIGHi ID ) 
IF(ERRL99.GT .DIF) GO TO 81 

THAT a- C 
ERRL99 * DIF 

81 ERR LI = ERRL1* DIF 

82 CONTINUE 

ERR LI = ERRL1/FL0AT (LX) 

WRITE (6, 623) ERRL2, ERRL1, ERRL99, XX (LMAX) 
» » » T H E FO L LO W I N G C A RO IS TEMPOR AR Y 
GO TO (90, 96, 96), IPRINT 

"SCALE “ERROR CURVE ANO“HRTNT 
90 IE = 0 

SCALE =1. 

IF (ERRL99- GE.10.) ““GO" TC 02 

DO 91 IE=1,9 


SPLIN551 

SPLIN552 

S P L I N 5 53 

SPLIN554 

SPLIN555 

SPLIN557 

SPLIN558 

SP L I N559 

SPLIN560 

SPLIN561 

SP L I N 5 62 

SPLIN563 

SPLIN564 

S P LIN 5 65 

SPLIN566 

SPLIN567 

7P L T N 5 68 

SPLIN569 


SPLIN570 

SPLIN571 

SPLIN573 

SPLIN574 

SP L I N 57 5 

SPLIN576 

SPLIN577 

SPLIN578 

SPLIN579 

SPLIN580 

SPLTN581 

SPLIN582 

SPLIN583 

SPLTN584 

SPLIN585 

SPLIN586 

S P L I N 5 8 7 

SPLIN588 

SPLIN589 


SPLIN591 

SPLIN592 

•SF L I N 593 

SPLIN594 

SPLIN595 


SPLIN597 
S PL IN 59 8 
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SPLIN6C 1 
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SPLIN604 
SPLIN605 
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SCALE = SCALEMO. 

IF (FRRL99?SCALE.GE • 19. ) , SO TO 92 

91 CONTINUE 

92 DO' 93 L=1,LX . 

93 PRINT (L) = UERROR (L> *SCALE 

GO TO (94,95,95) ,IPRINT' 

94 WRITE (6,621) IE , ( L , XX ( L) , FCTL ( l> , PRINT (L) , 1=1 , LX ) ' 

GO TO 96 

95 WRITE (6,622) IE, (L , XX(U , PRINT (L) , L=l, LX) 

96 RETURN 

,621 FORMAT ( 1H // 45X , 36HAPPROXIMATI ON AND SCALED ERROR CURVE/38 X , 
♦10HDATA POINT, 7X, 1 3HAPPROXIMAT I ON, 3 X , 16H0EVI AT ION X 10Ef,Il/ 

* (31X,I4,F16.8,F16.8,F17.6> ) 

622 FORMAT (1H //53X, 1 1HERROR CURVE/38X , 10HDATA POINT, 23X, 
116H0EVIATI0N X ICE* , 11/ (31X , 14, F16. 8 , 16X ,P17. 6 ) ) 

623 PORMATdH ///40X2CHLEAST SQUARE ERROR =,E2P.6/ 

1 40X20HAVERAGE ERROR =,F20.6/ 

2 40 X20HMAXIMUM ERROR =,E20.6,3H AT,F12.6///1 

END '' 

¥***#»****<,****¥*<,*«►*****#*****¥*¥# ****************************** ** 
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SUBROUTINE INTERP 

C OMP U TE TMC SL OPE S VO R O L CIT2T > T*Zt KN OT - 1 A T I N TE R IOR 
KNOTS OP CUBIC SPLINE FOR GIVEN VALUES VORDL (I, 1) 1 I«1 , KNOT, 
AT ALL THE KNOTS AND GIVEN BOUNDARY DERIVATIVES 
D IME NS I O N- B tEBT , BIAStEBT 

COMMON/ OUTPUT /UERRORf 100) ,FCTL (100 ) ,XIL (28) , COEFL ( 27*4) , 

*' VORDL (28, 2) , KNOT, L MAX, INTERV 

IOTA DIAGfl) , D(11/l* ,0 * T 
DO 10 Mo 2, KNOT 
DfMI * XIL(M) - XIL(M-i) 

ID DI A GfM ) = rVORDLTM,l>-VOROLfM-l,l))/OtH) 

DO 20 N* 2, INTERV 

V0RDLIM,2> * 3.MD(M>*DIAG(N*1> ♦ 0 (M+l) *OIAG(N)> 

20 DI AG fM) * 2.*fD(M)»DfMrM) 

DO 30 M® 2, INTERV 
G = -D(M*i)/OIAG(H-i> 

DIBGtMl * DIAGfM) * G*D fM-1) 

30 VOROLfN, 2) = V0R0L(M,2) ♦ G*V0RDL(M-1,2) 

NJ « KNOT 

00 BO Mg?, IN T ERV 

NJ = NJ - 1 

4Q VOROL(NJ,2> = (V0RDLCNJ.2) - D (NJ) *VORDL (NJ+i, 2) ) /OIAG(NJ) 

RETURN 

END 


SPLIN629 

SPLIN630 

SP L I N6 3 1 
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S P LIN6 37 

SPLIN638 

SPLIN639 

SP L I N 6 4 0 

SPLIN641 

SPLIN642 

SP L I N84 3 

SPLIN644 

SPLIN645 

SPLIN646 

SPLIN647 

SPLIN648 

SP L I N64 9 

SPLIN650 

SPLIN651 
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FUNCTION DOT <M, INDEX) 

COMPUTE INNER PRODUCT OF FCT M WITH FCT ILAST (INDEX*1) 
U E R R OR < IN DE X= 2) 

COMMON / HANOT / TREND! 100) ,TRPZHT (100) ,6(100) 
CONMON/INPUT/LX, XX C100) ,U (100) , JADD , ADDXI (26) , NODE 
~COKMON/~~0 U T P UT /U ER R O R (1 00) ,FCTL < 100) , X IL(28 ) ,COEFt ( 2 7 ,4), 


V0RDL(28,2) , KNOT, UMAX, INTERV 
COMMON/ BASIS /FCT (100, 30) , VORD <30 , 28,2) , BC<30 >, ILAST 


SPLIH657 
OF SPLIN658 
SPL I N6 S 9 
SPLIN660 
; SPLIN661 
S P L I N662 
SPLIN663 
SPLIN664 
S P L I N66 S 
SPLIN666 
SPLIN667 
SP L I N668 
SPLIN669 
SPLIN670 
SP L I N6 7 1 
SPLIN672 
SPLIN673 
SP L I N6 7 4 
SPLIN675 
SPLIN676 
SP L I N6 77 
SPLIN678 
SPLIN679 
SPLIN68 0 
SPLIN681 
SPLIN682 
"SPLIN683 
S PL IN 68 4 
SPLIN685 
SPLIW68B: 

RETURN SPLIN687 

SPLIN688 
SP L I N68 9 

***************************** *♦*♦♦** **************** **» >.**** ***-*********spi£|ijggQ 

SPLIN691 




CD 

TO 

(10, 30V, INDEX 

10 

IF (N.EQ.ILASI) 

GO 

TO 

20 


DO 11 Laly LX 



- 

-Hr 

Gttr) » ~F~CT (L,M)»FCTt(t:)~ 






GO 

TO 

80 

20 

DO 21 L«l, LX 



, , • 

-Tt 

GttT) a 'FCTL (L) » FCTL CO" 






GO 

TO 

80 

30 

IF (M.EQ.31) 

GO 

TO 

40 


-DO 31 tslTtrX" • 




31 

GCL) * FCTL (L) *UERROR(L ) 






GO 

TO 

88 


-trO CO 41 L«r,L X 
41 G(L) = UERROR(L) *UERROR (L) 

E F FI C I EN TLY P ROGRA MMED OO U BE P R ECISIO N A CC U M ULA TI ON O F S CALA R 
PRODUCTS IS CALLED FOR HERE. AT PURDUE, HE USE 
D » ARITH1(C,N,A,IA,B,IB) 

KMTCM~ RE TU R NS T H E Y ALU E O F~ 

O a C - SUM(A(1+J*IA) * B<i>J*IB>, J»0,...,N-1) 

80 DOT = -*R IT HI ( Ov,L XyG , lyTRPZHT ,TT 

END 


V 


90 


opu o obo 


SUBROUTINE EVAL 

COMPUTE POL. COEFF C0EFL<I,KJ OF FCT ILAST FROM VOROL, 

THEM C OMP U TE FCTL <CT = CFCT TLAST F » T R E N0 AT X X (E l »X=x»Lr 

COMMON / HANOT / TRENO(IOO) ,TRPZHT(100),GCi00> 
CONMON/INPUT/T_X,XX (lOm ,U(IT0> , JXOO, A1JDXT<2B),HUOE 
COMMON/ OUTPUT /UERRORC 100) , FCTU130 ) »XIL<28) , COEFL (27,4) , 

* VORDL(28,2> ,KNOT,LMAX,INTERV 
OU It T*T»INTERV 

COEFL(Iy 1) = VOROL (If 1) 

COEFLfI, 2) x VORDHI*2> 

OX * XTL TT*t1 - Xlt ll) 

OUMi s <VOROLCI*l,l)-VOPOL<I,l> >/DX 
DUN 2 x VOROL (I »2> ♦VORDL(I+l» 2) -2.*DUM1 

co e f l rrrn = nnmi-ouME-voRULri.m/TJx 

10 COEFL Cl, 4) = OUM2/OX/OX 

U * 1 

ISWTCH » 1 
DO 20 L’l.LX 

OU TO TTI ,17J t rSMTCTT 

11 IF CJ.EQ.INTERVY GO TO 12 

IF (XXCU.LT.XIL(J*1>) GO TO 13 

J * J ♦ 1 

GO TO il ? 

12 ISHTCH = 2 

IT OX ^ XXCLT - XILCJ) 

20 FCTLCL) = CCOEFLCJ, 1H-OXMCOEFL <J,2> +OXMCOEFL < j, 3) 

* +0X*C0EFL(J,4) ) ) )*TREN0(U 

RETURN 

END 
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SPLIN726: 

SPLIN727 

SPL TW7 28 

SPLIN729 

SPLIN730 

SP L IN7 31 


SUBROUTINE NUBAS “ 

COMMON/INPUT/LX, XX (100) ,U(100) , JAOO, A00XIC26) , HOOE y( " 

COMMO N/ -OU T P UT /U E R POR t 1 00) , FCT L t l08 )~ , XI L T 28 r , C OEF L VZTjVTp • 

'• VOROL(28,2) , KNOT, LMAX, INTERV ^ > 

CON MON/ BASIS /FCTC100 , 30) , V0R0 C30 , 28,2) ,BC(30 ) , ILAST ' ? 

COMMON/ LASTS /IOR0ER(28),INSIRTt30)TXKNOT- ’ - 

COEFCIC,.) CONTAINS THE POL COEFFICIENTS OF FCT M FOR INTER-SPLIN732 
VAL TO THE RIGHT OF XI CIO, IC»ICM, ICN*N-3 , SPLIN733 

W ITH IGN = M * (M » 7 )/ 2 » ~ t tr tWIT H O BV I OU S H00ST0R-H .L E .4) S P L I N 7 34 

THE FCT ILAST (TO BE) INTRODUCED LAST, HAS ITS VALUES AT THESPLIN735 
THE POINTS XXCL) IN FCTLCL), HAS FIRST INOEX ICLASSPLI N736 

IH COEF-ANO XT, HA S A DDITIO NAL KN OT XKNOT , TH E K N O T KNOTS SP L TN73T 

FOR IT ARE CONTAINED, IN INCREASING OROER, IN XIL, ITS COR- SPLIN738 
RESPONDING ORDS AND SLOPES ARE IN VORDL, THE KNOT JUST INTR0SPLIN739 
D U C EO HAS IN OEX INS E R T I N Xl t, I NS E R T I S SA TEO~T N I NSIR TCI LASS P L I N 7 4 0 
FOR POSSIBLE REPLACEMENT OF KNOTS LATER ON CSEE M0DE«2,3). SPLIN741 
DIMENSION TEMP (30) ,XIC3B1) , COE F (381, 4) 

IF (MOOE .GT .Or G O TO ~T 

***CONSTRUCT FCT ILAST FOR ILAST. LE.4 

XI ( ILAST) » XIUl) 


I C L A S T « HA S T 
ILM1 s ILAST-i 
IF (ILAST ,GT,2) 

~IFt ILA S T V E 0. ~2T 
FIRST BASIS FCT 
VOROL (1,1)31. 
V O R D L (2 , 1)»1. ~ 
VORDL (1,2) *0. 
V0RDL(2, 2) =0 • 


GO 

-w 


TO 7 
TO 6 


IS A CONSTANT 


“ 00 - 10 - 87 - 
STRAIGHT LINE 


SECOND BASIS FCT IS 
VORDL (2, 2) s VORDL (1,1) /(XIL (2) • XIL(1))*2. 
V 0 R D LT1, 2 T~ =- ~V 0R DL (2 , 2) 


VORDL ( 2, 1) 
V0 RD L T2 , -2) 


- VORDL (2,1) 

n»-VOROLtEr« 


SET UP CONSTANTS DEP.ON ILAST. 

ANO UPOATE VORD FOR FCT M,Msl , ILAST-1 
UTKNO T = K N O T — 1' 

ILAST * KNOT ♦ 2 

ICL AST * ILAST* (IL AST-7 )/2 ♦ 10 

I L M 1 = I LAST^l 

INTERV * KNOT - 1 

DO 11 INSERT*2, INTERV 

“TF( XKNOT .LTvXI LT INSERT V) 00“ TO - L2" 

11 CONTINUE 


GO TO 59 

-GO TO (10,10,14) ,H 00r 

INSERT NEW KNOT INTO XIL 


“12-TT- ( XK NO TiLE.XIL C l NS ERT- t l ) 
10 = KNOT 

DO 13 L= INSERT , INTERV 

10= TO- 1 

XIL (IO+l ) = XIL (10) 

13 I0RDER(I031) = IOROER(IO) 
IOR OERTI NSERTT = “KNOT 


GO 

00 “ 


TO 95 
T O 95 
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14 XIL (INSERT) * XKNOT 
OX = XKNOT - XIL (1) 

oo i s i^m 

VORO(I,KNOT,l)aCOEF(I,l)*OXMCOEF(I,2)4DXa(COEF(I,3> 

* ♦0X*C0EF (1,4))) 

15 VORC (I,KNOT,2)aCOEF(I,2)»PX»T2.*COi:rtI,3)»OX»3.»CO£F(I,4n 


SPLIN784 

SPLIN785 

S P L I N 7 86 

SPLIN767 

SPLIN783 

SPLIN789 


c— 


IFCILH1.LT. 5) GO TO 20 


SPLIN790 

ID a 4 


5PLIN791 

IBOUNG ~a 4" 


SPLIN792 

DO 19 1= 5, ILH1 


SPLIN793 

ID a ID ♦ I - 4 


SPLIN794 

-TBOUHO y I BO UN 0 * T - T 


SPLIN795 

17 IF (IO.EO.IBOUNO) 

GO TO 18 

SPLIN796 

IF (XKNOT. LT.XICIO+1)) 

SO TO 18 

SPLIN797 

10 « 10 r- r 


■SFtTNTOB 


GO TO 17 

SPLIN799 

18 OX « XKNOT - XI (ID) 


SPLI:N800 

VORDCI f KNOT yl) •COEf CTO 9 1) ♦OK* 

(COEF ( ID j"2) +DX* CC( EFT IDiTtt - 

SPL X tfS 1 

* 

♦DX*COEF (10,4) ) ) 

SPLIN802 

49 VORDtl ,KNOT , 2) *COEF (ID, 2) ♦DXMC0EF(I0,3)*2.+0X*3.*C0EF(I0,4) ) 

SPLIN803 



SPLIN8C4' 



SPLIN805 

20 CONTINUE 


SPLIN806 


-oo to -m,irt7, strT,Kocrr 

SPLIN807 


H00E»1 *** ADO ILAST-TH BASIS FUNCTION. CONSTRUCT FROH FCT SPLIN808 
ILAST-1 BY REFLECTING THE PART OF THE LATTER TO SPLIN809 
T HE R I GH T OF XK N OT A C R OSS THE X -A XI S, T HEN I N T ERS P L I N81 0 
POLATING. THIS SHOULD INDUCE ONE MORE 0SCILLATI0SPLIN811 
N IN FCT ILAST THAN IN FCT ILAST-i SPLIN812 

SP LIN613 

29 NODE » 1 SPLIN814 

30 VOROLCi,2) a fORDCILHi, 1,2) SPLIN615 

DO 31 INSE RT SPLIN816 

’LOC * lORDER(K) SPLIN817 

31 vORDL(K»l) * V0R0CILH1, ILOC» 1) SPLIN818 

-00 32 K» I NSERTyTNT ERV SP L I N819 


ILOC a IORDERCK+1) 

VOROL(K*1,1> a-VORD(ILMi,ILOC,i) 
VORDL ( K NO T » 2 ) a-V 0 R 0(I L H l,2, 2) 


GO TO 55 


»»» H 0D E«2 *** R EP LA C E F C T I LA ST BY I N T ER PO LA TI NG IT AT THF 


SPLIN820 

SPLIN821 

SPL I N822 

SPLIN823 

SPLIN824 

S P L I N82 5 


40 IF (INSIRTCILAST) .EQ.O) 


41 


V0R0L(1,2)=V0R0 (ILAST, 1,2) 
ID * I CL AST 

~I B O UN D » I CLAS T » I LA ST = T 
00 43 K=2,INTERV 
IF (IO.EO.IBOUNO) 
if txiL novLT. x KitJ^irr 
ID * ID ♦! 


CURRENT SET OF KNOTS. IF FCT ILAST HAS NOT BEEN SPLIN826 
PREVIOUSLY OEF (INSIRT (ILAST) a(> ) (SEE 9 ABOVE, SPLIN827 
ALS O W A IN A T 1 0) ) S ET H OD E g r, P R OC E ED I N T HA T H 0 0 SPLIN828 

SPLIN829 

GO TO 29 SPLIN830 

S P L I N831 
SPLIN832 


GO TO 42 
■GO TO -42- 


GO TO 41 


42 "DT "* XIL(K)- XICTDT’ 

43 VOROLfK,!) = COEF(IO,1> i-DX*(COEF(ID, 2) +0X* (COEF( 10, 3) 


SPLIN833 

SP L I N8 3 4 

SPLIN835 

SPLIN836 

S P L I N83 7 

SPLIN838 

SPLIN839 

-SPL IN84D 

SPLIN841 


93 - 


nonrto o o aorta 


♦OX*COEF(ID,4>> > S PL INS 42 

SPLIN843 
S P L I N 8 44 

GO TO 55 ' • .«•>». *.Y SPLIN845 

• ;i SPLIN846 

M00E-3 ++* CHANGE FCT TLAST 9V CHANG I NG JUST TWE KNOT I N T R0 SP L I N84 7 


VOROL C KNOT, i> =VORD(ILAST, 2,1) 
VOR O LC K N OT , 2) ^ VO RD (I LA ST , 2 , 21 


DUCED LAST 




GO 70 51 


50 TO = I CLAST * I N SE R T - 1 
OX = XKNOT - XI (ID) 

XI ( ID) = XKNOT 
IE TOX.GE.O. / 

io * io - i • e - 

OX a XKNOT - XI (ID) 

51 VORO L C INSE R T, AT = COEFCI O, 17 , DX » (CO EF C IO, 2) + OX »(CO EF(IO,S) 

* ♦OX*COEF (ID, 4) ) ) 


GO TO (57,57,59) ,MOOE 


INTERPOLATE 

55 CALL INTERP 

57 18 s I CL AST - i 
00 56 10=1, INTERV 
IO = ID ♦ 1 

56 XI ( IO) s XILCTO) 

INSIRT (ILAST) = INSERT 


FCT ILAST OVER P R E V IO US (OR T HON O R H AL i SET 
THEN COMPUTE THE COMPONENT 8C (ILAST) OF UERROR WRTO IT 
FINALLY, STORE THE VARIOUS REPRESENTATIONS OF FCT ILAST 


59 


60 


69 


CALL EVAL 
00 60 I=i,ILMl 

TENP TT) * trOTTI , IT 
DO 69 L=1,LX 

FCTL(L) = ARITHl(FCTLCL), ILM1, TEMP, 1, FCT (L,l), 1001 
SEE COMMENT IN *OOT* ABOUT THE ♦ARITHl* ~ROUTINt 
00 61 K=1,KN0T 
ILOC = IORDER(K) 

DO 61 L=l,2 

61 VOROL (K,L) = ARITHKVOROL (K,L),ILMi, TEMP, 1,VOROC1, ILOC, L) ,1) 
SEE COMMENT TN *nnT» »°"HT *ARITH1* ROUTIM c 
67 CALL EVAL 

C = SORT (DOT (ILAST , 1) ) 

IF (C .EQ. 0.) C = 1. 

OCtTtASTT - DOT tILAST,?1 / C 
DO 62 K=l, KNOT 
ILOC = IORDER(K) 

DO 62 L=l,2 

VORDL(K,L) = VOROL (K,L)/C 
VOROC ILAST, ILOC, L) = VOROL(K,L) 

ID * TCL AST - 1 
00 63 10=1, INTERV 
IO = IO ♦ 1 
00 63 L=l,4 

COEFCIO, L) = COEFL(IO,L)/C 


62 


63 


64 


00 64 L=1»LX 
FCT a, ILAST) 


= ECTltU/t 


SPLIN848 
SPLIN849 
S P L I N8 S8 
SPLIN851 
SPLIN852 
SP L T N 853 
SPLIN854 
SPLIN855 
S P L I N8 9 6 
SPLIN857 
SPLIN858 
SPLIN859 
SPLIN860 
SPLIN861 
S P L I N862 
SPLIN863 
SPLIN864 
S P L I N8 E5 
SPLIN866 
SPLIN867 
SPL I N868 
SPLIN869 
SPLIN870 
SPLIN871 
SPLIN672 
SPLIN873 
S P LIN8 7 4 
SPLIN875 
SPLIN876 
SPLIN877 
SPLIN878 
SPLIN879 
S P L I N88 0 
SPLIN881 
SPLIN882 
SP L I N8 S3 
SPLIN884 
SPLIN885 
S P L I N886 
SPLIN887 
SPL IN888 
SPLIN889 
SPLIN890 
SPLIN891 
SPL I N892 
SPLIN893 
SPLIN894 
SPtI N8 95 
SPLIN896 
SPLIN897 
S P L I N8 9 6 
SPLIN899 


94 


o rt o ci cfo 


RETURN SPLIN900 

SPLIN901 

~***~ ~TWTS OUTP U T I NDI CA TE S A T A I LUR E C O N DITIO N *** TPLI N90 2 

95 WRITE (6 » 9501 XKNOT ,ILAST SPLIN903 

950 FORMAT C15H *** NEW KNOT, E20 . 8,13H FOR FUNCTION , 13, 50H OUT OF BOSPLIN904 
*UNO S OR COI N CIDE N T WITH A P R E V I OUS KNOT . /T6H *** E XECU TIO N CANN O S P L I N90 5 

*T BE CONTINUED) SPLIN906 

STOP SPLIN907 

-SPLINOEB 

END SPLIN909 

SPLIN910 

T R E N D AND NETCNT F UNC TIO NS*** ******* ******* **** ' ********** ' ** ' * SP t ^ NOU T 

SPLIN912 


95 



FUNCTION TCZ) 
T » i. 

RETURN 

END 


SPLIN913 . 
‘ SPLIN914 
S P L I N 9I 5 
1 SPLIN916 
■' SPLIN917 


96 


FUNCTION HCZ) 

H * 1. 

RETURN 

END 


SPLIN918 

SPLIN919 

SPL1N920 

SPLIN922 

SPLIN923 




IDENT ARITH1 

ARITH 

1 

#•* 

ARITH1 «■ aotThMETIC PAntAQjp EAR tlNEQl ANO DTMNT1. 

ARITH 

8L 

*' 

DAVID ST DODSON, 06/0J//0, 

ARJTH 

3 

• 

ARITH 

4 



AQTYh 

i 



ARITH 

6 

•«« ’ 

FUNCTION. 

ARITH 

7 

* 


ARTtm 

B 

* 

SIVEN REAL SCALAR C AND N-VECfORS A AND 8* THIS 

ARITH 

9 

« 

PACKAGE COMPUTES THE FUNCTION! 

ARITH 

10 

A 

N 

ARITH 

11 

* 


ARITH 

1Z 

* 

ARITH1 s C - > A (i) * B(I) 

ARITH 

13 

• 

— 

ARITH 

14 

♦ 

1 = 1 

ARITH 

15 



ARlfH 

16 



ARITH 

17 

*«« 

USAGE. 

ARITH 

16 

• 

' 

ARITH 

19 

« 

PORTRAN FUNCTION REFERENCE TO ARITH1 OF FORM! 

ARITH 

20 

■# 


ARITH 21 

• 

Y=ARITH1 (C*N»A»KA.R.KB1 

ARITH 

22 

» 


ARITH 

23 

• 

WHERE! A AND B ARE THE NAMES OF THE TWO VECTORS AND 

ARIfH 

24 

« 

KA AND KB ARE THE INCREMENTS BETWEEN SUCCESSIVE 

ARITH 

25 

» 

.ELEMENTS. OF THE A ANn B. VECTORS IN MEMORY*. 

ARITH 

ARITH 

ARITH 

26. 

27 

28 

• •• 

COMPAT AB ILI.TY . 

ARITH 

29 

« 


ARITH 

30 

# 

THIS ROUTINE IS EQUIVALENT TO THE FORTRAN SUBPROGRAM! 

ARITH 

31 

• 


artth 

39 

* 

function ARITH1 (C«N*A.KA»B*KB) 

ANlfH 

33 

• 

DOUBLE PRECISION T 

ARITH 

34 

• 

REAL A(KA.N ) 1 8 ( KR . N t 

ARITH 

35 

• 

TaOBLE(C) 

ARITH 

36 

• 

IF (N.EQ.O) GO TO 5 

ARITH 

37 

• 

DO 4 1 = 1. N 

ARITH 38. 

• 

4 TaT-DBLE ( A ( 1 ♦ I ) ) *DBl_E 18 ! HI ) > 

ARITH 

39 

• 

5 ARITHlaT 

ARITH 

40 

• 

RETURN 

ARITH 

41 

« 

END 

ARITH 

42 


EJECT 

ARITH 

43 


ENTRY ARITH1 

ARITH 

AKlfH 

ARITH 

44 

45 

46 

LOOP 

SA1 83 FETCH NEXT. A 

ARITH 

47 


SB3 B3*84 

ARITH 

48 


SA2 B5 FETCH NEXT B 

ARITH 

49 


SB5 85*B6 

ARITH 

SO 


FXO X1*X2 (AU.Xl) i (XI) * (X2) 

ARITH 

51 


0X1 X1*X2 

ARITH 

52 


FX2 X6-X0 (X6tX7L * LX6*_X1) - (X0.X1) 

ARITH 

S3 


DX3 X6-X0 

ARITH 

54 


FXO X7-X1 

ARITH 

55 


NX2 X2 

ARITH 

56 


FX1 XO*Xi 

ARITH 

57 


FXO X1*X2 

ARITH 

58 


NX3 XO 

ARITH 

5« 

98 

DX1 X1*X2 

ARITH 

60 



NXZ 

A 1 

y\ -* : v ^.y •••■-£ ■ . 

ARITH 

61 

FX 6 

XZ*X3 

% i' u £ ' i 

ARIJH 

62 

0X7 

X2*X3 


ARITH 

63 

SBZ 

B2-B1 

COUNT TERM 

ARITH 

64 

NZ 

B2*L0OP 

LOOP to COMPUTE INNER PRO0UCT ^ 

ARITH 

ARITH 

65 

64 

ARITH1 BSSZ 

1 

ENJRy/EXIT v,. . V wi i .A-w .. .. 

ARITH 

67 

SA1 

B1 

( X 6 1 X 7 ) « OBbB (C)., - 1 :, T .... 

i , . ARltH 

68 

BX6 

XI 

ARITH 

69 

MX7 

0 


ARITH 

70 

0X7 

X6*X7 

~ ■ f l ( ,• - 

ARITH 

71 

SB1 

1 

(Bl) • 1 

ARlfH 

72 

SA1 

B2 

(B2) a N 

ARITH 

73 

SBZ 

XI 


ARlfH 

74 

ZR 

xi,arithi 

retiibm ir n < " 

ARITH 

75 

SA1 

B4 

(84) s KA 

. v,, ARITH 

76 

SB4 

XI 

t 

ARITH 

77 

SA1 

B6 

(B6| B V,;/';. .• ^ 

ARITH 

78 

SB6 

XI 


ARITH 

79 

E0 

LOOP 

, £■'■» . ' 4. - .. . . , ^ 

ARITH 

80 

SPACE 

4 


ARITH 

81 

END 

• V ; ... . • • 
, . * * 

' * *L ‘ ’ ••• : /f’ ’ ' ‘ ***** .* •* •*. * ‘ 

ARITH 

82 



9Q 


o o 


SUBROUTINE TRIO (M,SUP«SUp,DlAG.B) 


C 

C 

C 

c 

c 

c 

IT 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

IT 

c 

c 

c 

c 

c 

c 

c 

c 


c 

lo 

c 


2d 


SUBROUTINE TRIO 

DECKS USED 
TRIO 

PURPOSE 

SOLVES THE MATRIX EQUATION AX»B, WHERE A IS TRI DIAGONAL. 
USAfaiZ 

CALL TRI0(M,S(JP.SUB.0IA6.B) 
description OF parameters 

M - ORDER OF MATRIX A. 

SUP - (MX 1) SUPER 0 I AGONAL OF A. 

SUP(I)»A (I,I*i) I-l.M-1 

sub - (m x i) sub _ oj agonal of a. 

SUB ( I ) *A ( i. I * I #" lal.M-i 
DTAG - (M X 1) MAIN DIAGONAL OF A. 

DlAG ( I ) =AJ I » I ) Ja 1 » M 

B • (» * ii CONSTANT VECTOR. (SOLUTION RETURNED 

IN B) 


REMARKS 

THE ARRAYS MUST HAVE THE FOLLOWING DIMENSIONS 
SUP (M ) * SUB (M) »DIAG(M) ,B(M) 

SUB AND SUP CONTAIN M-l ELEMENTS. 

METHOD 

DECOMPOSES MATRIX A INTO L*U» THFN SOLVES THE EQUATIONS 
•Zap AND U*XaZ, SOLUTION IS RETURNED IN B VECTOR, 


DIMENSION SUP(M) » SUB (M) »0IAG(M) ,B(M) 

N a M 
NN a N-l 

SUP(l) * SUP (1) /DlAG (1) 

SCI) a 8(1)/0IAG<1) 

00 10 1=2, NI 

II a 1-1 

DECOMPOSE A TO FORM a»LU WHERE L IS LOWER TRIANGULAR 

"is Upper triangular 

OIAG(I) a nlAG(I)-5UP(II)*SUB<II> 

IF (I .EQ. N) GO TO 10 
SUP(I) a SUP ( I ) /DlAG { I ) 

COMPUTE L WHEHE LZ=B 

BII) a (B ( I ) -S(J8 ( 1 1 ) *B ( 1 1 ) ) /DlAG ( I ) 

COMPUTE X PY BACK SUBSITUT ION WHERE UXaZ 
DO 20 K*I.NN 

1 a N-K 

B ( I > a B ( I ) -SUP (I) *8(1*1) 

RETURN 

ENO 


TRIO T 
TRIO 2 
.TRTT, J 
TRIO 4 
TRIO 5 
TRIO A 
TRIh 7 
TRIh P 
TRin 9 
TRIO lo 
TRIO IT 
Tflln Tp 
TRIO IS 
TRIO U 
TRIO IS 
TRI 6 lA 
TRIO 17 
TRIfi IP 
TRIO 19 
TRIO 2 n 
TRIO 21 
TRIO 22 
TRIO 23 
TR !6 24 
TRIO 25 
TRIO 2 A 
TRIO 27 
TRIO 28 
TRIO 29 
TRIO 36 
TRIO 3 T 
TRIfi 3 ? 
TRIO 33 
TRIO 34 
TRIo 3 s 
TRIO 3 A 
iTRIn 37 
TRIfi_ 3 p 
TRIO 39 
TRIO 46 
TRIh ♦? 
TRin 4 p 
TRIO 43 
TRIh 4 i 
TRIO 45 
TRIO 4 A 
TRIO 47 
TRIo 4 p 
TRIO 49 
TRIO 56 
TRIO 51 
TRIO 52 
TRin 53 
TRIh 54 
TRin 55 
TRIh 56 
TRIf) 5 ? 
TRin 5 p 


lOu 



APPENDIX III 


PROGRAM LISTING - VCF 

- ADYNF 


- SUBROUTINES 
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^ * m LiAetQ » y imii v A i »<p ft i it fi i « n ip I n t i rt» , . 

rRO GRA W V.CF 8 a ’I nPUT.j OuTP UT $ r,U Nu HyTAr E 3f T APE 4| 

1TAP E5=INPUT ,TAPE6=0UTPUT,TAPE7 -PUNCH) 

DIMENSION U(32, 2,51), W(32, 51), UT(32, 51) ,UB<32,51) 

DI M ENSION INFO ( 16 ) 

DIMENSION THTASRT(6> ,UZZT(6) ,UZZSQT(6),GAMART(6> ,IFLGT(6) 
DIMENSION THTASRB(6> ,UZZB(6) , UZZSQ8 ( 6) ,GAMARB( 6) ,IFLGB(6) 
DIMENSION CDKtiOO) ,COPK(TOO) ,CDSK(I0 0) 

DIMENSION CLSKC180) 

DIMENSION TA WQ( 53) » TAML (53) 

COM MO N AL P HA,P I , PI2 VR E , S RE,SQR T P I,D'r OR,R T O D, R C ,RCHAXSQ, S IGHA,U 
COMMON/KAYS/K,KS,KR,KT,KB,KRT,KRB : • ’ 

COM MON/ELIPS2/AKPHALF, AKDOTPH 

com MON^coi^WTc-ritJiir yrrinijr-, xb c urtf) , YBt iiror, xrt 1 1 ov) y t RT tnnn , 

1XRB C100) »YRB(100) : «f: 

C0MH0N/BL0CK2/G AMMA (100 ) ,GMAB< 100) , GHRT (100) ,GMRB (100 ) 
C0MH0N/8L0 C K37X D O T ( 10 5) , YO O T (1 EO > , XOOTB (100 ) , Y D O T B ( 1 00) , 

1 XRD OF(IOO) , YRDOT (100) ,.XROOTB (1 OO) , YRDOTB (100) 

COM MON/BLOCK 47 TT (100)»TR(100),TRT(100) ,TR3 (100 ) 

COM M0N/8L0CK19/THET AS, THETA SB, THETA 

C0MM0N/BL0CK11/DS(52) , DZ2, DZ8, OZSQ, 0ZSQ2,DZSQ4,DT2 v 
C O M H0 N/8L 0 CK 28 / D X, D7 , I N TX 1,N B IG1 
COM M0N/BL0CK30/T ,TI , DEL T, DEL TT ,’0ELTB 
COM M0NV9LB0X27T AU,PT4,NBIG ! '- 

~ C OM M0NF8 tBOXtr/ZNt5ir^-lDE^ 

COM M0N/8LB0X13/KTS»IXTRSET , IXBRSET, UTNBIG( 53),UBNBIG(53) 
C0MM0NVBL0CK14/S (53) ,ST (53) , SB ( 53) 

CO MMO NS 8LB 0 X lA f BffiTTAKn 
EXTERNAL CPC ,»DRAG, PLIFT 
INTEGER ALPHA 
-REAL. NOR ,NU, MU 

REAL L,LB • 

R EAL LENGTH /"• ' - ' ’ • - 

. . A ATACK*ANGLE OF ATTACK IN DEGREES 

..A FUNCTION SUBPROGRAM NAMED RZERO (ZSTAR) MUST BE 

•• SUPPLIED BY THE USER TO ENTER THE BODY GEOMETRY. 

• • Z STAR IS THE OIMENSIONAL DISTANCE ALONG THE BOOY AXIS, 

.. AND RZERO IS THE CORRESPONDING DIMENSIONAL RADIUS. 

.. TF~~TN€~^80DY~ : O E OHE TRY IS IN TUBULA R' "FORM THEN RZ ERO (Z ST A RT 
.. IS AN APPROXIMATING FUNCTION 
.. VsFREE STREAM VELOCITY 
. . NnJ*XlNEMATTC~VISCOSITY 
.. INFO ..... DATA IDENTIFICATION v 
REA 0(5,705) (INFO(I) ,1=1,16) 

W RI TE T6 , 505)~f I N FO (TT ,1* 1, IT) 

READ(5, 706) AATACK, RE, LENGTH 
REA D(5, 706) CELT, RC, SIGMA 
REA 0(5,7 08) KFIN AL, T FINAL, ZFINAL 
REA 0(5,7 09) LR,LW, LEVEL, KPUN 
PI= 4.0*ATAN(1.0> 

DTO R=P I /"18 0.0 •' - ' ' ‘ • 

RT0D=180 .0/PI 

CAL L NONOIM (OMAX,RM,AM,F,SA, LENGTH,‘PI) ' 1 
WRITE(6,611)DMAX,AH,F,SA 

WRITE(6, 606) AATACK, RE ; ' v ' ; 

AATACK=DTOR» AATACK 


VCF8 

2 

VCFB 

5 

VCF8 

5 

VCF8 

6 

VCFB 

r 

VCF8 

8 

VCFf 

9 

TLVCFl 

nr 

VCF( 

n 

VCF6 

12 

VCFB 

rs 

VCF8 

14 

VCF8 

15 

VCFB 

IB 

VCF8 

17 

VCF8 

18 

VCF8 

IB 

VCF8 

20 

VCF8 

21 

VUF8 

77 

VCF8 

23 

VCF8 

24 

VCF8 

25 

VCF8 

26 

VCF8 

27 

VCF8 

25 

VCF8 

29 

VCF8 

30 

VCFB 

31 

VCF8 

32 

VCF8 

33 

VCFB 

TUT 

VCF8 

35 

VCF8 

36 

VCF8 

37 

VCF8 

38 

vcpe 

39 

VCF8 

W 

VCF8 

41 

VCF8 

42 

VCFB 

43 

VCF8 

44 

VCF8 

45 

VCFB 

46 

VCF8 

47 

VCF8 

48 

VCFB 

49 

VCF8 

50 

VCF8 

51 

VCFB 

67 

VCFB 

53 

VCF8 

54 

VCFB 

55 

VCF8 

56 

VCF8 

57 

VCFB 

5B 


102 
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FTA=F*T ANCAATACK) 

C . .... OUTPUT PARAMETERS 
iP inwr 

C ..... COUNTERS 
KT= KB= 0 
KRT =KRB=0 
KR= KS=KSB*1000 
IXTRSET = IX8RSET = INITAL=53 

“C N OTH IS T H E ~K D IME NS IO N 

C ..... NDIM MUST RE PUT IN FREEVTX, CPC, AND RVTX 
NDIHslOO 

TDrH®DINENStON OF THETA GRIO IN Bit. ROUTINE 

..... JDIMs DIMENSION OF R GRID IN B.L. ROUTINE 
IDIM=32 
J D I HsB l 

CONSTANTS 

PI2*2.0*PI 
PIN F*132.3/.U89 
SQRTPI*SORT(PII 
SQA *SIN C AATACK) **2 
“DELT»-rrrF 
SRE*SQRT CRE> 

ISYMsl IS THE SYMMETRIC CASE 

........ ISYN=0 IS THE ASYMMETRIC CASE 

ISYMsl 

THTASYMsU.O 

START Of\oOP 

K*0 

IFC tRiEQ.O) GO TO 219 

REA DC L R) K , K$ , KR, KT , KB , KRT , KR B , T , D ELT , N BI G , IX TRS ET , I X BRSET 
RE AD(LR> CUTNBIG(I) , CUTCI,J> ,Jsl,NBIG) ,I=1,IXTRSET) 

IFC ISYM.EQi 0 T R E A D C UR) T UB NBT GTT ) ,~C UB C I , J V|i JslyNB IGTf T^TTlX BRS E T > 
IFCK.LT.KS) GO TO 219 

READCLR) CXCI) ,YCl),XOOTCI> ,YOOTCI) , GAMMA CI),TT <I) ,I=1»KT) 
REAOCtR) CXBCI) ,Y9CI> , XOOTB Cl ) , YOOTB Cl) ,GMABC I) ,TBCI) ,1=1, KB) 
IFC KRT.EQ.O) 50 TO 220 

REAOCLR) CXRTCI),YRTCI), XRDOT Cl) » YRDOT Cl) , GMRT C I) ,TRT Cl) ,1 = 1, KR 

P EAO C L R) CX RS C I) , Y RB C I ) , X R DOT B C II i YR D OT BCI) ,G M R ~B~ C I) ,T RBCI ) , 

11*1 ,KRB) 

220 CONTINUE 

TFf N.tT. KR) GO TO 219 

READCLR) THTASMT,THTASRT,UZZT,UZZS3T,GAMART,IFLGT,THTASMB, 

1THT ASRB , UZZB .UZZS09 , GAM ARB , IFL G B, NT , NB, NFT , NFB , GMTLT , GMT LB 
219 CO N TINUE 

IFC CK/KPUN)*K»UN.EO.K)IPUN=2 
KTS=K*1 

IFf K.NE.fl) GO TO 69 
T=T 1= C RM/AH) *2.0=FTA*.03 
ZHAT=T*CAW/CRM*2.0*FTA> ) 

AK=-RHAAN*R?ftOf ZHAT# LENGTH, RM ) 

AKTI=AK 

AKD OTsDRZROCZMAT, LENGTH, RH) /C2. 0* ff TA) 

~CDP I=PI2 # AK*AKD0T 
WRI TE C6 , 620) T,ZHAT,AK,A KDOT »CDPI 
69 K=K *1 

KMIN U S 1 = K-l 


rNVCFB 

59 

VCF8 

60 

VCF8 

6i 

VCFff 

63 

VCF8 

63 

VCF8 

64 

TCF8 

65 

VCF8 

66 

VCF8 

67 

VCFS 

W 

VCF8 

69 

VCF8 

70 

VCF8 

7T 

VCF8 

72 

VCF8 

Ttf 

VCF8 

75 

VCF8 

76 

VCFr 

7T 

VCF8 

78 

VCF8 

79 

VCF8 

. sir 

VCF8 

81 

VCF8 

82 

VCF8 

S3' 

VCF8 

84 

VCF8 

85 

VCF8 

W 

VCF8 

87 

VCF8 

88 

VCF8 

89 

VCF8 

90 

VCF8 

91 

YCF5 

93 

VCF8 

93 

VCF8 

94 

VCF8 

95 

VCF8 

96 

) VCF8 

97 

VCF8 

9T 

VCF8 

99 

VCF8 

10 0 

VCF8 

1(71 

VCF8 

102 

VCF8 

103 

■tfCPfl 

to* 

VCF8 

105 

VCF8 

106 

VCF8 

107 

VCF8 

108 

VCF8 

109 

VCF8 

110 

VCF8 

111 

VCF8 

112 

VCF8 

113 

VCF8 

114 

VCF8 

115 

TCFff 

TIS~ 
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oob 


c • 

C ,. 


c... 


1 


T=T 4-OELT 

TH= T-DELT/2. 0 

ZHAT=T*( AW/CRW*2.0*PTA> ) 

AK »R W7AR»R Z R 0 ( Z HA T t LEfflrrH,RW) 

AKDOT*DRZRO(ZHAT, LENGTH, RW)/(2.0* e TA) . 

AADOT*AK*AKDOT 
' AKSQD*AK**2 

ZHALP*TH*(AW/CRW*2.0*FTA)) 

.AKP HALF=AKHALF=RW/AW*RZRO(ZHALF, length, RW) 
AKoorPH=-DR7RoczHALF,rEwtrrH,RTir Arz.ir^rnrr 
... RCHAXSQ ANO RCSQ ARE THE MAX CORE RADIUS SQUARED AND CORE 
. .. RADIUS SQUARED 

iFt KS.LF.K)*CNAX$QsS.04*T/RE 
IFt KS.LE .K) RCNAX*SQRT (RCMAXSQ) 

, KTT EMP=KT 
KBTEHF*XB 
XTsKT*l 
. KB*KB*1 

OAtt «t^OXtSHALLM,aGAMMA,TAHO,TAtfL,U,H,UT,UB f IOTH,JOIH.I) 

KT* KTTEMP 
KB* KBTEMP 
....SHEAR DR A C 
CDS T*0 • 0 
CLST=0 . 0 
TNTX*TSEP-1 
DO 1 1*1 »INTX 

TRAP0*DSm/2.0*(TAWDCI>«TAWD<I*l>) 

T RA P Lg O S Cir/2.r»tTA1t\.m»T AHU l 41)> 

CDSTsCDSTfTRAPD 

CLST=CLST4TRA»L 


COS X (XT = .5tr*AK*CDST 
CLS K(K)*.50*AK*CLST 
C ..... UPPER HALF OF CYLINDER 
~r Trrx.-trr.xs7 go to t 
KT* KT ♦ 1 
TT<KT)*T 

6A NH A( K T)g DE L r » 0 GAHMA 
GAMMACKT )*SIGNA*GAMMAfKT) 

XCKT)*rAK*SMALLM)*COS( THETAS) 
Y( K T )gCAK*SHALLH)*S I N< T HE T AS) 

IF.( ISYM.EQ.O) GO TO 3 

KB* KB* 1 , 

X B C KB) SX(K T 1 

YBCKB)=-YCKT) 

GMA B(KB) s-GAMMA CKT) 

. T BC K8) ~=T 
3 CONTINUE 

IFC THETAS. LT.THTASYM. OR. ISYM.EQ.O) GO TO 100 
GO TO TOT 

SYMMETRIC CASE 
100 KBT EMP*KP 
XS- XSH 

CALL «LBOX(SMALLM,DGAMMA,TAHD,TAHL»U,H,UT,UB,IDIM, J0IM,2) 
K8* KBTEMP 

..... AS YMME TR IC CASE 
..... LOWER HALF OF CYLINDER 

SHEAR DRAG 

C D S 6= 0.0 


VQFtt 117 
VCF8 118 
VCF8 119 
VCFB 1ZO 
VCF8 121 
VCF8 122 
VCFB 123 
VCF8 124 
VCF8 125 
VCFB 176 
VCF8 127 
VCF8 128 
VC FT 179 
VCF8 130 
VCF8 131 
VCFB 132 
VCF8 133 
VCF8 134 
VCFB 135 
VCF8 136 
VCF8 137 
r CF8 138 
VCF8 139 
VCF8 140 
VCF8 141 
VCF8 142 
VCF8 143 
7CF8 144 
VCF8 145 
VCF8 146 
VCFB 147 
VCF8 148 
VCFB 149 
VCF8 15TJ" 
VCFB 151 
VCF8 152 
VCFB 153 
VCF8 154 
VCF8 155 
VCF8 156 
VCF8 157 
VCF8 158 
VCFB 159 
VCF8 160 
VCF8 161 
VCFB 167 
VCF8 163 
VCF8 164 
VCFB 165 
VCF8 166 
VCF8 167 

vcfb r&a 

VCF8 169 
VCF8 170 
VCFB 171 
VCF8 172 
VCF8 173 
VCFB 174 
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2 CLSBaO.tr 

:• L INTX*ISEP-1 

00 5 I=1,INTX 

s tra pu=us rr> /?. tr^rmwcir^TAwmi+ir i 
i TRAPL=OS<H/2.0MTAVL«)*TAWL<I*1> » 

. J COSP=CDSB+TRAPO 
S CLSB=CLSB*TRA:>L 

COSK<K>=COSKf<)-.50*AK*CU:>9 
s CLSKCK>*CLSK<K> -.50*AK*CLSB 

■<B mK.LT.KSF) OT TO T 
KB* KB* 1 -.1 G>" 

TB(KB)=T 

GMA8PC8r=-DFLr*DGAHMA 
■> GMA P(.KB) *SIGMA*GMAB (KB) 

XB( KB) = ( AK»SMALLM) *COS (THETAS8 ) 

YBf KB) = < AK* SMALL M) *SIN(TH^TAS8 ) 

7 CONTINUE 
GO TO 9 

101 CONTINUE ...%•■• 

C ..... SYMMETRIC CASE 

COS K(K)*2.0*CDSK(K) 

CLSKTKrsH. 0 
00 107 1=1, IXTRSE1 
UBN BIGCI ) *-UTNBIG(I ) 

TO 107 J=1,N8IG 

102 UB(I,J)=-UTCI, J> 

IXBPSET*IXTRSET 
T H E T ASB= PI 2- T H ET A S 
KSB *KS 

KB* KT 

9 CONTINUE 

C ..... XOOT , YDOT CALCULATIONS 
IF(K.LT.KS) GO TO 85 
CAL L VEL VX,Y, XOOT, YOOT, NOIM, 1,10, 11 
IF( ISYM.EQ.01 50 TO 81 
00 80 1*1, KT 
XOOTB(IT=XOOT(I ) 

YDOTBCI) =-YDOT f I > 

80 CONTINUE 
TO TO 02 

81 CONTINUE 

CALL VEL CXB, YB, XOOTB,YOOTB,NOIM,1,KB,2) 

82 C O N TI NU E 
IF(KRT.EQ.O) bu io 85 

CALL VEL (XRT , YRT ,XROOT , YROOT ,NDIM,1 , KRT, 4) 
IFC ISYM.EO. 0) GO TO 8* 

00 83 1*1, KRT 
XR00TB(I)*XRD3T<I> 

YROOTBtl > =-YROOT(I) 

83 CONTINUE 
GO TO 85 

ON C O N TI N UE 

CALL VEL (XRB, YRB»XR00T8 ,YROOTB , NOIM , 1,KRS, 5) 
85 CONTINUE 


C ..... E-NO XOOT, YOOT CALCULATIONS 
C ..... PRINTOUT 
C 


VCF8 

175 

VCF8 

176 

VCF8 

177 

VCF8 

TT8 

VCF8 

179 

VCF8 

180 

VCF8 

181 

VCF8 

18? 

VCF8 

183 

VCF8 

TOT 

VCF8 

185 

VCF8 

186 

VCF8 

187 

VCF8 

188 

VCF8 

189 

VCF8 

T9IT 

VCF8 

191 

VCF8 

19? 

YCF8 

193 

VCF8 

194 

VCF8 

195 

vcfb 

I9V 

VCF8 

197 

VCF8 

198 

YCF8 

199 

VCF8 

?0 0 

VCF8 

?01 

VCFT 

2TT2 

VCF8 

?Q 3 

VCF8 

?04 

VCE8 

285 

VCF8 

?06 

VCF8 

?07 

rCFS 

TUB 

VCF8 

?09 

VCF8 

?10 

VCF8 

zn 

VCF8 

?1? 

VCF8 

?13 

VCFS 

7TW 

VCF8 

?15 

VCF8 

?16 

VCF8 

zrr 

VCF8 

?18 

VCF8 

?19 

VCF8 

222 

VCF8 

??1 

VCF8 

??? 

VCF8 

22 3 

VCF 8 

224 

VCF8 

??5 

VCT8 

22* 

VCF8 

??7 

VCF8 

2?8 

VCF8 

ZZ9 1 

VCF8 

230 

VCF8 

231 

VCF8 

23? 


TPU N=IPLTN-1 



IF((K/KPUN> ♦KPUNiEG.K) IPUNsZ 

IM= g 

IFf IPUN.GE.l) IW=7 
if< k.ge. ksi H^ iTE C6 v Btnn 

IF( K.GE.KS) CALL WRIT(X ,Y, XDOT , YOOT , GAMMA, X8.YB, XOOTB, YOOTB, GHAB, 
ll,KT,i,KB,K,NOIM,IW> 

IF(KRT,GT .0) WRITE (6,6077 

IFC KRT • GT. 0) CALL WRIT( XRT ,YRT ,’XRDOT ,YRDOT,GNRT , XRB,YRB,XROOTB, 

' "RO 0T9 , GHRB , 1, KRT, 1 , KRB ,K ,ND IN , IW) 

T? . • • • .E NO P R I N TO U T 

COR =4. 0*PI # AKOOT 
SEP DEGsT HETA S*RTOO 

TFtK.GE. K S . AN D . L E V E L . G E .4) WR IT E C S, 67E1T, 7H7H , A~K~, A KDO T , S EPD E G 
IF(K.GE.KS) CALL OQI (PDRAG, COP , K, 5, ISYM) 

CDPK(KI = .5*AK*CDP 
C O K ( K )* C PSK (Kr*C OP K ( K) 

CDN = (AW/RW)*CDK(K> * SQA - 

WRI TE (6, 60 3) K, CDPK( K) ,CDSK( K) , COK(K) ,CDN 

^F1-KPUHvNri-r»1«RlTEr7-,TT5r7NAr,C0K(Xr,T,K 

IF(K.LT.KR) GO TO 78 

KTEMP=KRT 

CAT X R S7P ( T H ET A S , T H T ASR,S T7 TJ T NB I G, I X T K S E T , 1NI T AL , 1) 

CALL RVT X(XRT» YRT,GMRT ,THTASR, THTASMT ,THTASRT, UZZT,UZZSQT,G AMART, 
11,KRT,NT,NFT,IFLGT,GMTLT,NDIM, TRT) 
iFt-KTPMPrECrKrrr- g n to 78 
KRB =KRT 

TRB (KRB) *TRT (KRT) 

GHR B (KR B) *»GHR T (KR T ) ' 

XR8 (KRB) =XRT (KRT) 

YRB (KRB) s-YRT(KRT) 

CALTT VEL ( XRTyY RT fXRDOT, YR COT ,N0IM,KRT,KRT,4) 

XROOTB(KRB) =XRDOT (KRT) 

YRD 0TB(KR8) =-YRDOT ( KRT) 

IF( ISYK .ETT.TD GO TO 70 
KTEMP=KRB 

CALL RSEP(THET ASB,THTASR,S8,UBNBIG, IXBRSET , INITAL, 2) 

CALL. "RVTxrXRB,YRO,GKRB,THTASR,THTASMB,THTASR8,U27B,UrZSaH,GHtlSRB, 
1 ?,KRB» NB ,NFB , IFLGB*GMTL B, NOIM, TRB) 

IF( KTEHP.EQ.KRB) GO TO 78 

CALL" ~YEt tXRB,TRByXRO O T 9 , YR D 0 T9 , NOT My KRB i KRB, 5V 
7B CONTINUE 
78 CONTINUE 
C ..... VORTEX MOTION 

IF(K.LT.KS) GO TO 95 

CALL VM(X,Y,XOOT,YDOT,NDIM,i,KT,OELT) 

TF ( ISrM . E O. T) GO Tt 91 
00 90 1*1, KT 
XB(I)*X(I) 

YB( II=-Y(II 
90 CONTINUE 
GO TO 92 

A 1 f| i A T 1 Till «#■ 

or jonttnue 

CALL VM (XB,YB, XOOTB, YOOTB, NDIH,1, KB, CELT) 

92 CONTINUE 

IFdCRT.EO.tn GO TO 95 

CALL VM( XRT, YRT ,XROOT,YRDOT , NDIM, 1 , KRT, CELT) 

IFC ISYM. EQ. 0 ) GO TO 94 
OC 83 I*1, KRT 


VCF8 773 
VCFB 234 
VCF8 235 
VCFB ?36 
VCF8 237 
VCFB 238 
VCFB 779 
VCF8 240 
VCF8 241 
VCFb Z42 
VCF8 243 
VCFB 244 
VCFB 745 
VCF8 246 
VCF8 247 
VCFB 748 
VCF8 249 
VCF8 250 
VCFB 251 
VCF8 252 
VCF8 253 
VCFB 754 
VCF8 255 
VCF8 256 
VCF8 25V 
VCF8 258 
VCF8 259 
VCFB 768 
VCF8 261 
VCF8 262 
VCF8* 263 
VCF8 264 
VCF8 265 
VCFB 266 
VCF8 267 
VCF8 268 
VCFB 268 
VCF8 270 
VCF8 271 
VCFB 27 Z 
VCF8 273 
VCF8 274 
VCFB 775 
VCF8 276 
VCF8 277 
VCFB 278 
VCF8 279 
VCF8 280 
VCF8 261 
VCFB 262 
VCF8 283 
VCFB 284 
VCF8 285 
VCF8 286 
VCFB 28 T 
VCF8 288 
VCF8 289 
VCFB 290 
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' XRB'CIfsXRTCn VCFB 291 

s YRB CI)=-YRTCI) VCF8 292 

:* 9 3 CONTINUE VCF8 293 

GO” TO 95 VCFB 294 

’ 94 CONTINUE < . VCF8 295 

CALL VM(XRB,YRB,XRDOTB, YRDOTB. NOIM , 1 , KRB,OELT) VCF8 296 

95 CONTINUE VCF8 297 

> . . .. . ENO ‘VORTEX i.NOTION VCF8 298 

* CALL SECOND(TIME) ’ VCF8 299 

NRTTE C 6 » 6T21 TTNE VCFB 3W 

IFC K.EQ. KFINAL.OR.TIME.GE.TFINAL.OR. ZHAT .GE.ZFINAL) GO TO 221 VCF8 301 

GO TO 69 VCF8 302 

721 CONTINUE ’ , rUu : VCFB 393 

HRITECLW) K,KS,KR,KT,KB,KRT,i<RB,T,OELT,NeiG,lXTRSET,IXBRSET VCF8 304 

WRITECLW) (UTNBIG(I) , CUT CI,J) ,J=1,NBIG),I=1,IXTRSET> VCF8 305 

lEtTSTItrEQ . 0 ) WRI TEH- WTtUBNB IG TT) ,f UB( I ,J ) , J=l, NBTGTf Is r» IXgRSET) VCFB 396 

IFC K.LT • KS> GO TO 223 VCF8 307 

HRITE(LW) (XCI) ,V(I) ,XDOT«I) ,YDOT(I) ,GAMMA CI> , TT (I) ,I = 1,KT) VCF8 308 

WRITE CL N1 CX9C I) ,YB Cl) , XDOTB Cl ) , YDO T8CI) ,GMAB( I) , T9 (I ) ,1=1, KB) VCF8 309 
IFCKRT.EQ.O) GO TO 222 VCF8 310 

WRITE(LW) (XRTCI) ,YRTCI) ,XRDOT CI>, YROOTCI) ,GMRT(I) ,TRT <I),I=1,KRT) VCF8 311 
W RITE CL NT ntRBTXlTYEBTl r,XRUOTETIT ,YROOTB(Il VCNR8TIT ,TRB(D , VCFB 312 

11=1 ,KRB) U. VCF8 313 

222 CONTINUE VCF8 314 

IFC1C.LT.KR) GO TO 723 VCFB 315 

WRITECLH)THTASHT,THTASRT,UZZT,Uz/5U . , GAMART, IFLGT ,THTASMB, VCF8 316 

1THT ASR8,UZZ8,JZZSQB,GAMARB,IFIGB,NT . NB,NFT .NF9 , GMTLT, GMTLB VCF8 317 

223 C ONTI N UE VCFB 318 

690 FORMAT C//50X*POINT VORTEX LOCATIONS */27X*T0P 9 0UN0ARY LAYER*44X VCF8 319 

l*BOTTOM BOUNDARY LAYER*//, VCF8 320 

J * A K*6X*X (A)*8X*YCA) *7X*XD0T C A) *4X* YDOT ( A ) *6X VCF8 321 

1*GAMMA(A)*3X*XB CA)*7X*YB(A) *6X*XD0TB (A) *4X*YD0TBCA> *6X*GMAB ( A) *) VCF8 322 

691 FOR HAT ( * 2DUS REYNOLDS NO. = *F1 1. 2,//* 2DUS PARAMETERS*/ VCF8 323 

1 * -J E I T=*E~5 . 3 , /* RC^*F5. 3, /* SIGMA =*F5. 3, ///* "PROGNAH CONTRA *7 VCFB 324 

2* K FINAL =*I3 , /* TFINAL= *F6. 1 ,/* ZFI NAL=*F5 . 3 ,/* LR=*I3,/* LW = *I3,/VCF8 325 
4* L EVEL=*I3, /* KPUN = *I3) VCF8 326 

692 FORMAT C///25X*T0P REAR SHEAR L A'YER* 44X*80TT0M REAR SHEAR LA Y ER*// , VCF8 327 

1 * A K*6 X*XRT (A) *6X* YRT (A)*5X*XR00T (A)*3X*YR00T(A)*5X VCF8 328 

1*GM RTC A) *4X*XRBCA)*5X*YR8(A) *4 X*XRD 0TB( A ) * 2X*YRO OTB ( A ) *4X VCF8 329 

l*GMA9tA) *1 VCFB 339 

603 FORMAT C///* K=*I3,/* CO PK=*F 12 . 6, /* CDSX=*F12. 6, /* C0K=*F12.6, VCF8 331 

1/* CDN=*F12.5) VCF8 332 

695 FORMAT Cl HI, 29X , 16A5 //) VCF8 333 

696 FOR MAT C * ANGLE OF ATTACK=*F5.1 ,* DEGREES*/* 3DS REYNOLDS NO. =*F11. VCF8 334 

12) VCF8 335 

611 FORTtAT-C7742X"* DMA X= * F 7 , 4 y/4 2X* AW=*F7.4, /42X* F = *F7 . 4, /4?Xi VCF8 336 

1* S=*F7.4,//) VCF8 337 

612 FOR MAT C* ELAPSED TIME=*F12.6) VCF8 338 

629 FOR MAT C* TI=*F12.6,* ..... ZH AT (TI ) = *F12 . 6 , /* AK(TI)=*VCF8 339 

1F12.6,* AKOOT(TI) =*F12.6,* COPI = *=- 12 . 6) VCF8 340 

622 FORMAT C1H1,40X*PRESSURE DISTRI BUTI ON*/l 4X*T = *F7. 4 , 5X* ZHAT=* F7. 4 , 5X VCF8 341 
t^AK-=*F7'. 4,5X*AX00T=*F7.4,5X*THETAS=*F7.2,//3X*0EG*8X*PHIVT*8X VCF8 341 

2*PH IPT*8X*2(PHIT) *6X*-°SIKSQ0* 5X*C® K*10X*PDRAG*8X*UTAN*) VCF8 343 

705 FOR MAT ( 1 6A5) VCF8 344 

796 FORMAT C3F12. 6) 7 CF8 345 

708 FOR MAT Cl 3,9X , 2F12. 6 ) '•>' VCF8 346 

709 FORMAT (412) VCF8 347 

759 'ORMATC 3F12.6, 1 3: VCF8 348 
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FUNCTION AN(L,N,IDIM,JDIM,U,H> 


AH 

T 

DIMENSION U(I3IM,2, JOIN) ,H( IDIM, JDI M) 


AN 

2 

COMMON/BLOCK11/DS(52),072,OZ8,DZSQ,07SQ2.DZSQ4,OT2 


AN 

3 

AN» DZ8 »W CL,N1-0ZS04 


AN 

TT 

RETURN 

‘ ^ 

AN 

5 

ENTRY BN 


AN 

6 

0X4=.25/DS(U 


AN 

T 

BN=DT2*DX4MUa*i,2,N)HJa*l,l,N>>*0ZSG2 


AN 

8 

RETURN 


AN 

9 

ENTRY CTT 

. ' t 

AN 

nr 

CNs -0Z8*W(l, N> -DZSQ4 

i i 

AN 

ii 

RET URN 


AN 

12 

ENO 


AN 

13- 
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SUBROUTINE BLBOX (SMALLH,DGAMMA,T AMD fTAHL,U,W,UT,UB,IOIM,JOIM 
DIMENSION UCIDIM,2, JOIN) , W CIOI M , JOI M) ,UT CIOIM, JOIN) ,UB(IDIM, 
DIMENSION S UPC49) , SU9C 49) , 01 AG (49) , R ( 49 ) 

OIHENS ION THTAC53) * 

DIMENSION NX (53) »OEG (53) 

COMMON ALPHA, PI, PI2, RE, SRE,SQRTPI,OTOR,RTOO,RC,RCMAXSO, SIGMA 

COMMON/KAYS/K,KS,KR,KT,KB,KRT,KRB 

COM HON/E LIPS2/AKPHALE, AKDOTPH 

C OH HONYBL OC X 5 / A K , A K S QO , AKHAVFVATXOOT 

COM MON/B LOCK 10 / THE T AS, THETASB, THETA 

COMMON/BLOCKU/DSC52),DZ2,DZ8,DZS3,OZSQ2,DZSQ4,OT2 

C0MB01V/ BLOCK ?1 /OX , 0 7 , IN TX 1 , NBI G 1 

CONMON/BLOCK30/T,TI,DELT,DELTT,OELTB 

COMMON/BLBOX2/TAU,PT4,NBIG 

C OM HO N /BL 8 0X 1 Z /ZNtST) ,t SEP 

COM MON/B LBOX 13/ KTS* IXTRSET, IXBRSET, UTNBIG( 53) , UBNBIG ( 53) 

CONMON/BLBOX14/7HAT,AKTI 

COMMON/BLOCK 14/S (5 3) ,ST (53) , SB (53) 

********* MOO El IN*L IES 0 DEGREES. LT.TMETA.LT. 80 DEGREES 
********* M0DE2 IMPLIES -80 OEGREES • LT. THETA. LT . 0 OEGREES 
»» »»»»»» » RBAR C O RRES P ON D S TO Z 
********* THETA CORRESPONDS TO X 
LEV EL* 5 

“irtK.GT.KTS.OR.HOOE. EQ. 2) GO TO 9 
£*•***+* INITAL DETERMINES INITAL GRID POINTS 
RT0D*189 .0/PI 
O T O Rg PI Z 18 0 . 0 
INI TAL S 53 
INTX1«IXTRSET 

tft-IXBRSET.GT. IXTRSET) INTXt*IXBRSET 

OEL S*5,0*DT0R 

ST( 1)=0. 0 

S B C 1 ) sPI 2 

DO 19 I* 2, INITAL 

IFtl.LE. 15.0R.I.GE. 36) GO TO 16 

STtr)*STtI-U*DELS/5.0 

SB( I) *SB (I-l»-DELS/5.0 

GO TO 19 

3* STC »« S T ( I*1 T »D E L S 
SBC I)*SB (I-l) -DELS 
19 CONTINUE 
20»-t).-0 
TNT Z*50 
TNTZlsINTZ+1 
-tt BIGMINTZ 
NBI G»INTZ1 
0Z= .14 
072=0.5/02 
OZ8*0.125/DZ 
OZS 0=1. 0/CDZ*DZ) 

DZSQ4=0. 25/C0Z*0Z) 

ZNC 1)=Z0 

S+++++ ++++ RBAR VARIATION 
00 27 J= 2,NBIG 
RJ= J 


, MOOE) BLBOX 
JOIN) BLBOX 


1 

2 

3 

"4 

5 

6 

7 

8 
9 


BLBOX 
BLBOX 
BLBOX 
BLBOX 
, LEVEL BLBOX 
8LB0X 
BLBOX 
BLBOX nr 
BLBOX 11 
BLBOX 12 
BLBOX IT 
BLBOX 14 
BLBOX 15 
BLBO X IB 
BLBOX 17 
BLBOX 18 
BLBOX 19 
BLBOX 20 
BLBOX 21 
B L B OX TT 
BLBOX 23 
BLBOX 24 
BLBOX 25 
BLBOX 26 
BLBOX 27 
BLB OX -28- 
BLBOX 29 
8LB0X 30 
BLBOX 31 
BLBOX 32 
BLBOX 33 
BLBOX 34- 
BL90X 35 
BLBOX 36 
BLBOX 37 
BLBOX 38 
BLBOX 39 
BL BOX 4TT 
BLBOX 41 
BLBOX 42 
BLBOX 43- 
BLBOX 44 
BLBOX 45 
BL B OX 46" 
BLBOX 47 
8LB0X 48 
BLBOX 49 
BLBOX 50 
BLBOX 51 
BLB O X 5? 
BLBOX 53 
BLBOX 54 
BLBOX 55“ 
BLBOX 56 
BLBOX 57 
B L B O X 58 
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72 ZN( J )=Z 

E=1 0. 0 -5 
THETAS=ST CIXTRSET) 

THETASB=S9CIXBRS E T T 

c ♦****.»** theta variation 
9 CONTINUE 
C ** ** * *** « T OP HAL E 

I NT XI=ISEP=IXTRSET 
, IFC MODE. EQ. 2) INTX1 = ISEP=IXBRSET- 
I NT X = INTX1-1 

IFC K.EQ. 1) CALL ICC A KTI, U,IDIM, JOIN, MOOE) 
DO 290 I=1,INITAL 
G0-T0T7<J4,2im MODE- 

204 SCI )=ST (I) 

GO TO 208 

296 SCI )=SBC I) 

208 THTACI)=SCI> 

OEG CI)=THTACI)*RTOD 
IF C I i E O.tT GO TO 212 
DSCI-1) = SCI)-SCI-1) 
DSCI-i)=DSCI-l)*AKHALF* *2 
Z •++++*++ » B .C . RBAR-fl 

213 IFC I.GT.INTX11 GO TO 214 
UCI ,1,1) =0.0 

• tm , 2 , n=o.o 

JI= 2 

GO TO 215 

214 J I = N9 1G~ 

215 00 200 J-.jl', NBIG 
c *+**«*«»« B.C. THET A=0 

TEC 1. NE. 1) GO T O "201 
UCI ,1,J> =0.0 
UCI ,2, J) =0.0 
GO TO 202 

201 IFC J.NE. NBIG) GO TO 202 
£«**»****» B.C. RB ARs INF 

THETAsTMTACI) 

CALL FREEVTX C*SIK1X ,PSIK1Y»PSIK1R, 3) 

CALL P0TFL0HCPSIKXP,PSIKYP,PSIKRP,3) 

TFT T. GTvTNTXl) GO TO HTT . • , 

UCI ,2, NBIG) = AK* CPSIK1R + PSIKRP’) 

GO TO (205,207) MODE- 
203 GO TO (211,212) MODE 

205 UCI ,1,NBIG)=UTNBIGCI) 

211 UTNBIGCI ) = AK*C PSIKIR*PS T *'°P) 

GO TO 2 tnr 

.207 UCI ,1,N8IG)=U9NBIGCI) 

. 212 U8NBIGCI)=AK*CPSIK1R*PSIKRP' 

GO TO 200 

202 IFCK.EO. 1) GO TO 200 
GO - TO C 20 9,210) MODE 

209 tm. ,1,JT=UT Cl, JT 
GO TO 200 . 

210 UCI ,1, J) =UBCI, J) 

200 CONTINUE 

40 CONTINUE 

DT2=.5/DELT 

DO 180 1 = 1, I NTO . v ■ . 


BLBOX 59 

BLBOX 

60 

BLBOX 

61 

BLBOX 

67 

BLBOX 

63 

BLBOX 

64 

BLBOX 

65 

BLBOX 

66 

BLBOX 

67 

BLBOX 

SW 

BLBOX 

69 

BLBOX 

70 

BLBOX 

71 

.v BLBOX 

72 

BLBOX 

73 

j BLBOX 

74 

BLBOX 

75 

BLBOX 

76 

BLBOX 

77 

BLBOX 

78 

BLBOX 

79 

BLBOX 

80 

BLBOX 

81 

BL80X 

82 

BLBOX 

81 

3LB0X 

84 

BLBOX 

85 

BLBOX 

66 

BLBOX 

87 

BLBOX 

88 

BLBOX 

89 

BLBOX 

90 

BLBOX 

91 

BLBOX 

92 

BLBOX 

93 

BLBOX 

94 

BLBOX 

95 

BLBOX 

96 

BLBOX 

97 

3LB0X 

98 

BLBOX 

99 

3LB0 

100 

BLBO 

101 

BLBO 

102 

BLBO 

103 

BLBO 

104 

BLBO 

105 

BLBO 

106 

BLBO 

107 

BLBO 

ioe 

BLBO 

10< 

BLbu 

111 

BLBO 

111 

BLBO 

1 li 

BLBO 

lie 

BLBO 

in 

BLBO 

115 

biuu 

116 
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NCY CLE*0 
TAUNEH=9.0 
t W«,1>=0.0 
59 N CT CL E gW Cr CL E »l 
00 140 J=2,NBIG1 
TAUS*TAUNEH 

z*zmji 

' 90 IF CNCYCLE.GT.l) GO TO 108 

UCI*1,2, J)=UAPRXltI,J,IDIM,,JOIM,U) 

ruo ozox g oz /i4. o » p sm : 

HCI ,J>=H<I, J-l) -DZDXMUfI+1,2, J> *U( I *1, 2, J-l) ♦ 
1UL< I,J,IOIH, JOIM,U> ♦ULCI, J-1,IDIM, JOIM,U)) 
wtl f ^ITT I , J ) - D7^ AKOOTPM/ A < FHA tf 
IFIJ.EQ.2) GO TO 110 
SUB (J-2)=CNCI,J,I0IH,J0IH,U,W) 

910 PIA GM-13-BN II i 3^01*7391*^ ,vrr 
IF CJ.EQ.NBIG1) GO TO 120 
SUP (J-1)=ANCI,J,I0IH,JDIM,U,M) 

1Z9 P < J -1 ) =ONt I , J , 1 0 IM , J DIM, U , H ) 


"BUB9 117 
BLBO 116 
BLBO 119 
BUBO T29 
BLBO 121 
BLBO 122 
OLBCr 123 
BLBO 124 
BLBO 125 
■BUBO T2B 
BLBO 127 
BLBO 128 
BUBO IBB 
BLBO 130 
BLBO 131 
BUBO 132 
BLBO 133 
BLBO 134 
BUBO 135 


140 CONTINUE BLBO 136 

•60 CALL TRID(49,SUP,SUB.0IAG,R) BLBO 137 

130 170 JJ= 2 , NBI G1 BUBO 136 

U<I+1,2, JJ)=R1JJ-1) BLBO 139 

IF( MODE.FQ. 1) UT(I*1,JJ)=R(JJ-1) BLBO 140 

IFrMOOE.EQ.21 UB (1*1, JJ)=R( JJ-1) BLBO 141 

170 CONTINUE BLBO 142 

C ********** WALL FRICTION AT EACH X STATION BLBO 143 

TAUN EW = 2. 0* U (1 * 1, 2 , ^7 / 13 7 - BUBO W 

IF< NCYCLE.GE.20) GO TO 179 BLBO 145 

IFf ABStT AUNEH-TAUS) .GT. E.0R.NCYCLE.LE.2) GO TO 50 BLBO 146 

179 CONTINUE BUBO- 147 

NX(I*l>=NCYCLi BLBO 148 

•80 CONTINUE BLBO 149 

ur ooEB ro ubar bubo ibtt 

UI REMAINS IN UT ANO UB ARRAYS BL80 151 

DO 182 I =1, INTX1 BLBO 152 

OO 182 J=1,NBIG BLBO 153 

182 UCI ,2, J) =U<I,2, J)/AK BLBO 154 

IF1M0DE.E0.2) GO TO 28 BLBO 155 

IP t U E VEL .~G E . 4 ) C AL U PITE32> rOIM> UOI1~irU > 7N > NX~rS > OEG t ZHA TyOEtSrtO BUBO IBB 

28 CONTINUE BLBO 157 

C .SEARCH ALONG SURFACE FOR ZERO SHEAR POINT BLBO 158 

390-00-392 1=1, IWT XI 8LB0 199 

OUDR={U(I,2,2)-UCI,2,l) )/Q7 BLBO 160 

TAH=(2.0/SRE)*OUDR BLBO 161 




60 TOC 3957206) "MOOE" 




BtBO 

16 Z 


305 

TFd.EQ.l.OR.I.EQ.INITAL.OR.TAH.GT. 0.0) 

GO 

TO 

301 

etBo 

163 



ISE P=I- 1 




BLBO 

164 



GO TO 30 3 




BLBO 

165 


306 

IFCI.EQ. 1. OR. I. EQ.INITAL.OR.TAH.LT. 0.0) 

GO 

TO 

301 

BLBO 

166 



ISE P=I-1 




eLBO 

167 



GOTO 393 




BtrBO 

16 re 


301 

TAHL(I ) sTAH*CDS (THT A Cl) ) 




BLBO 

169 


302 

TAH Dtll =TAW*SIN (THTA (I) ) 




BLBO 

170 


303 

CONTINUE 




BLBO 

171 

c 


.FLOH HAS NOT SEPARATED 

... SKIP H CALC 

BLBO 

172 



TFdSEP.EQ.INITAL) GO TO 309 




BLBO 

173 

31 


.FLOP HAS SEPARATED 

• • • 

SEPARATION-PaiNT 

BtTBO 

174 
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c 

c 


c 


310 


IF( M0DE.NE.1) GO TO 304 


.DEFINEO 5 OEGREES UPSTREAM 
.TOP 


THE TAS=THTA ( I5EP) 
IFC KS.EQ.1000) KS=K 
GO TO 30 7 


304 IXBRSET=ISEP 


IF( KSB.EQ. 1000) KSB=K 
307 IFLAG=0 


PSI KRiUTISEP ,2»NSIST 
UOO =ABS t PSIKR) 
SMALLN=DELT*U80/PI2 
PGA MNA= t UttIPm /?.fl 
309 CONTINUE 


.BOTTOM 


MRI TEt 6» 60?) DGAMMA, SNALLM 
tVt FORBATt//* OGAMMA**P1?.6,5X*SM/»L1 Hs*F12.6) 
RET URN 
END 


P 




BLBO ITS 
BUBO 176 
BLBO 177 
SCB0~T7e 
BLBO 179 
BL80 180 
BLBO 18 1 
BLBO 18? 
BLBO 183 
BLBO 184 
BLBO 185 
BLBO 186 
BLBO 187 
BLBO 188 
BLBO 189 
BLBO 198 
BLBO 191 
BLBO 19? 
BLBO 193 
BLBO 194 
BLBO 195 
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FUNCTION CPCCTHTA) 

COMMON ALPHA,PI,PI2,RE,SRE,SQRTPI,0T0R,RT00,RC,RCMAXSQ,SIGMA,I 
COM HON/KAYS/K, KS,KR ,KT , KB ,KRT, KRB 

COMMON/BLOCK 1/X ( 100) ,Y ( 100) ,XB CiOO) , YB ( 100) , XRT ( 100) , YRT (10 0 > 
1XRB (100) ,YRB<100) 

C0HM0N/BL0CK2/G AMMA (100 ) , GMABf 100) , GMRT (100) ,GMRB (100) 
C0MM0N/BL0CK3/XD0T ( 100) ,YDOT (ICO) , XOOTB (100 ) ,Y00T8 (10 0) , 

1XR0 OT f 10 0) , YRDOT (10 0) , XRDOT3 (100), YRDOTB (1 00 ) 
COffMOW/Bt-OCK^FTTmnn»TB(100) » TRTC1 0 0) ,TRB(TOO) 
C0MM0N/BL0CK5/AK,AKS0D, AKHALF, AKOOT 
C0MM0N/BL0CK7/PHIVT,PHIPT,P1,P2,P3,P4 
COMMON/BLOCKIO/THET AS* T HET AS B, T HET A 
INTEGER A 

REAL L, LB ■ ’ j f ' ■ ■ 

T H E T A =T H T A Vi, 

NDI H=10 0 

PHI VT=0. 0 

SIN E=SINt THETA) 

COS INE=COS(THET A) 

IF(KT.LE.l) GO TO 10 
XXa A K ’C O S I N E 
YY= AK’SINE 
KMINUS1 = KT-1 

CALI. PVtX,Y,X»OT,YOOT,GANHA,NDlM,l, KMINUS1 ,SUM ,TT) 

PHI VT = PHIVT*S'JM 
IF(KRT.EQ.O) GO TO 10 

CALL PVtTfRT,m,XRfrOT,YRtroT,GMPT,NDrH,I,KRT7S UH, T R T ) 

PHI VT =PHIVT*SJM 
IF(KB.LE.l) ^0 TO 70 
-MI NU51=KB- . 

CAL L PV C XB,Y 0, XOOTB , tuOTB, GMAB , NOIM , 1 ,KMINUS1, SUM ,T8) 

PHIVTaPHIVT+SUM 

TF( K RB .-EU.m CO TO 211 

CAL L PV ( XRB, YRB , XROOTB, YROOTB, GMRB , NDIM , 1, KRB, SUM , TR8 ) 

PHI VT=PHIVT+SJM 
CON TIMUE 

PHI PT*2. 0* AKOOT ’COSINE 
PHIT*PHIPT*PHIVT 
> 1» 2 . 0’P H I T 

CALL FREEVTX(PSIK1X,PSIK1Y,PSIK1R,3) 

'ALL P0TFL0H(PSIKXP,P«IKYP,PSIKRP,3) 

'SI KR" B PSIK1 k’PSIKRP 

IF(PSIKR2.LE. -.1. AND. KR.EQ. 100(1) KR=K 
PAsPSIKR? 

P S I KS Q P » PSIK R 2 ” 2 

P2» -PSIKSQD 

CPC =2.0*PHIT-»SIKSQD 

P3*CPC 

RET URN 

END 


CPC 

1 

EVELCPC 

2 

CPC 

3 

CPC 

u~ 

' CPC 

5 

CP' 

s 

CPC 

7 

CPC 

8 

CPC 

- 9 

CPC 

TO 

. - CPC 

Li 

CPC' 

12 

CPC 

L3 

; CPC 

14 

CPC 

15 

CPC 

16 

V CPC 

17 

CPC 

18 

CPC 

19 

CPC: 

20 

CPC 

21 

CPC 

22 

CPC 

23 

CPC 

24 

CPC 

25 

CPC 

26 

CPC 

27 

CPC 

28 

CPC 

29 

CPC 

30 

CPC 

31 

CPC 

32 

CPC 

33 

CPC 

54 

CPC 

35 

CPC 

36 

CPC 

37 

CPC 

38 

CPC 

39 

CPC 

rtr 

CPC 

41 

CPC 

42 

CPC 

413 

CPC 

44 

CPC 

45 

CPC 

46 

CPC 

47 

CPC 

48 

CPC 

49 

CPC 

50 

CPC 

51 


/ 
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FUNCTION DNn.,N,I0I1T,JOTM,UyN> 

DIMENSION U.MDIM,2,JDIM),H(IDIM,JDIH> 
COMMON/Bl.BOX27TAU,PT4,N8IG 

COM H O N 7BI O OKH - 7 D S(52 ) , -O Z2, DZ 8, UZST > 'OZ SQ2, O ZSU4, OT 2 

COMMON/BLOCK20/DX,OZ,INTX1,NBIG1 

OX8=.125/DSCD 

DX 2~ *»U/ D S t l. ) 

ON* 0X8 *U CL+1 , 2, N) ** 2-DT 2*UM <L, N , IOIH , JOIN, U) - 
1DX2 *USCL,N,IDIM,JOIM,U» ♦UL(L,N,IDIM, JOIM,U) 

O N= -O N>D T Z * <D Tt >l , 2, NBI G ) »U M C L YNBIG , IDTM , J01H , u I ) 

ON* DN*DX2*(U<L+l,2,NBIG)/4.0+US(L,NBI6,IOIM,J0IM,U)) 
1 MJ a»l,2,N8 I G) »UL <t,NBIG,IOIH, JOIM,U)) 

UNS2*US<L,NM,I0IM^ JOIM^UI -2.0*US<L , N,IOIM, JOIN, U) 

IFtN.EQ. 1> GO TO 38 

UN 5~ l gtl N S 1-U S ( i. , N-l,IO IN ,J OIM ,in 

UNS 2*UNS 2HJS < L , N-l, IDIN , JOI M ,U>' 

30 ON* DN-DZ2*UNS1*M (L, N)*0ZSQ*UNS2 
IF TN.lT.N»Tl»-> GO TO 40 

ON* DN-AN (LyNBIGl ,IOIM, JDIM,U,m *U(L 4.1,2, NBIG) 

40 RETURN 
-ENET 


.( • r . ; DN 
1 v--. ON 

,5 -- f ;T ON 

■i UN 

ON 

. ON 

UN 
. ON 
ON 
•UN 

. .on 

■\ ON 
UN 
ON 
ON 
UN 
ON 
ON 
UN 


ON 

ON 

UN 


T 

2 

3 

TT 

5 

6 
1 

8 

9 

lO- 

11 

12 
X» 

14 

15 
18 

17 

18 
I'f 
20 
21 
22 
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oopo 


SUBROUTINE TJ(IlTFCTiCKiTCi“HfTSTM) : UU1 

. THE FRONT OF THE CYLINDER IS DIVIDED INTO 2N EQUAL PARTS OQI 


. THE FRONT IS OEFINEO AS -60 

* THE BACK OF THE CYLINDER IB 

• N MUST 8E AN EVEN INTEGER 
PI* 4*0* ATAN (1.91 

TFL*G=D 
XX* 0,0 

SIH P*0.0 

NB=2*N ' 

H3*H/3.0 

NF=N/2 

F0*FCT(XX) 

10 00 1 1*1, NF 

XX* XX ♦H 
FI* FCT ( X X) 

XX* XX *H 
F2=FCT (XX) 

SIHP*SIHP+H3MF2*4.0*F1*F0) 

1 F0*F2 

TFt IFLAtG .EQ. t) CO TO 5 
H*H /?• 0 
H3* H/3.0 
20 00 2 T = 1,NB 

XX* XX+H 
FI* FCT (XX) 

XX=XX*H 
F2* FCT (XX) 

SIiP*SIHPfH3»(F2^4* 0*F1*F9) 

2 F0-F2 

IFMFLAG.EQ.O) GO TO 30 
H*H *2. 0 
N3*"H/3". 0 
GO TO 10 
30 KMI NUS 1= K-l 

IFtISYH.EQ.0130 TO 4 
CK* 2. 0*S IMP 
RETURN 
4 TFtrAC*1 
GO TO 20 
5 CK* SIHP 
RET URN 
END 


DEG. LE. THETA. LE.60 DEG DQI 

TTfviOEb INTO BN EQOXL PARTS OQ1 

‘ " OQI 

’ OQI 

, , ^ 

“ * * ' OQI 

OQI 

— — — “ = f HOI 

' - < DQI 

^ OQI 

--v* - ■-* trax 

’ * ‘ ; - DQI 

DQI 

-- f-- r . ... — ! y- "T”- — - • • -QCI 

” ‘ '• DQI 

• - • ■* . " : DQI 

T J * ^ OQI 

1 > '** . '*V " OQI 

DQI 

- oqi 

OQI 

DQI 

DQI 

DQI 

DQI 

tTQI 

DQI 

OQI 

DQI 

DQI 

DQI 

oor 

DQI 

DQI 

DQI 

DQI 

DGI 

QGI 

DCI 

OQI 

OQI 

DQI 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

IT 

14 

15 
IB- 

17 

18 
IS 
20 
21 
2T 

23 

24 

25 

26 
27 
2T 

29 

30 

31 

32 

33 
34' 

35 

36 

37 

38 

39 
4ir 

41 

42 

43 

44 
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-> O 1J o 


SUBROUTINE FREEVTXTPSIXlX,PSI<rY,PSIXlR,IAT 

COM HON ALPHA, PI, PI2, RE, SRE,SQRTPI,DTOR,RTOD,RC,RCMAXSQ, SIGMA, 
COM MON/X AYS/X, XS» XR, XT , XB,XRT,KR8 

COHMONFBLOCXI/XriOOl ,Yt I09) , XB CiaO) yY5riOar,XRTTT301TYRTTlTnrT 
1XRB (100) ,YRBC100> 

COM MON/BLOCX 2/GAMMA (1QO),GMA8(IOO) , GMRT CIO 0) ,GMRB<100) 

€OMFON/BLOCX4/TT(1001,TBClOO),TRT<lOO),TR8riOO) 

C0MM0N/BL0CX5/AX, AXSQO, AXHALF, ArKDOT 

COM MON/BLOCXiO/THETAS. THFTASB, THETA 

COM MON7VTX1/XX, YY 

INTEGER A, B, ALPHA 

REAL LB,L 

NOTH* TOO 

PSI XIRsB.O 

PSI XI X a 0 » 0 

psrxrm.tr 

GO TOU, 2,3, 4,5) IA 

1 XX« Xt ALPHA) 

YY»Yt ALPHA) 

DERIVATIVE OF PSI W.R.T. X 

VORTEX MOTION TOP 

GO- T O 20 

2 XX«XB( ALPHA) 

YYaYBf ALPHA) 

DERIVATIVE OF " PST~W.1t.Ti V 


FREEVT 1 
LEVELFREEVT 2 
FREEVT 3 
', "FREEVT V 
FREEVT 5 
FREEVT 6 
FREEVT 7 
FREEVT 8 
FREEVT 9 
FREEV IV 
FREEV 11 
FREEV 12 
FREEV 13- 
’ FREEV 14 
FREEV 15 
FREE V 15 
FREEV 17 
FREEV 18 
FREEV" 19" 
FREEV 20 
FREEV 21 
F RE E V 22 
FREEV 23 
FREEV 24 
FREEV 25 


VORTEX MOTION BOTTOM 
GO TO 20 

-A XX s X R T l AL P HA) 

YY* YRTf ALPHA) 

GO TO 20 

-5 XXs-XRB-tAtFHftr 
YY* YRBt ALPHA) 

20 IFfXT.LE.il GO TO 23 
X M I Nl t Sl sK T- * 

CALL PSI (X,Y, GAMMA, NDIM ,1,XMINUS1, 1 A ,1, SUM, SUM1,TT) 
PSIXIXsPSIXIXfSUM 
FSrXiY^PSTXTYrSum 
IFfXRT.EQ.O) GO TO 23 

CALL PSI (XRT»YRT,GMRT»NDIH,1 ,XRT»IA » 4, SUM, SUM1 ,TRT) 

p s i x rx * ps ixix» stm 

PSI X1Y*PSIX1Y*-SUM1 
23 IF( KB.LE .1) RETURK 
XMINUS1=XB->1 

CALL PSI tX8, Y9,GMA8,N0IM,1,XMINUS1, IA,2,SUM,SUM1 ,TB) 

PSI XlXsPSIXlX^SUM 
P S I -X l Y sP S IK TYrSOMT 
IF(XRB.EO.O) GO TO 51 

CALL PSI (XR8 ,YRB,GHRB,NDIM,1 ,KRB,IA ,5,SUM, SUM1 ,TRB) 
PSTFiF-PSIXlX+SUM 
PSI XlYsPSIXlY*SUMl 
51 CONTINUF 
RETURN 

3 XX= AX*COSCTHETA) 

YY= AX*SIN<THETA> 

O- OERIVATIVE OF PSI M.R.T. R ON SURFACE 

IFfKT.LE.l) GO TO 34 
XMI MI'S 1= XT- 1 

OAt t P S I O NE < X , Y .OARMA^imM-,1 , XH INUST iTR> IB,SU H , S U M l,TT) 


FREEV 26 
FREEV 27 
FREE V 28 
FREEV 29 
FREEV 30 
FREEV 31 
FREEV 32 
FREEV 33 
FRE EV 34 
FREEV 35 
FREEV 36 
FREEV 37 
FREEV 38 
FREEV 39 
FR E EV 40 
FREEV 41 
FREEV 42 
FREEV 43 
FREEV 44 
FREEV 45 
FREEV 43 
FREEV 47 
FREEV 48 
FREEV 4V 
FREEV 50 
FREEV 51 
FREEV 92 
FREEV 53 
FREEV 54 
rREEV 59 
FREEV 56 
FREEV 57 
FREEV 55 


316 



r PSIKiR=PSIKlR*SUH 
i ' . IFf KRT.EQ.OJ GO TO. 34 

i," CALL PSIONE<XRT,YRT,GHRT.NDI*,l,KRT,IA,IB,SUM,SUMl,TRT) 
V PS I K1R= RS IK1R»SU H 
34 IFIKB.LE.l) RETURN 
KMINUSlsKB-i 


39 


CALL PSI0NECXB,YB,GMAB,NDIM,1,KHINUS1,IA,IB,SUM,SUM1,TB) 

PSIKIRsPSIKIRfSUM 

IF(KRB.EQ.D> GO TO 39 


ITKRB n A » T B »"SUK» SUH I »TRPT 


PSI K1R*PSIK1R*SUM 
CONTINUE 


RETURN 


END 


FREEV 59 
FREEV 60 
FREEV 61 
FREEV 6 Z 
FREEV 63 
FREEV 64 
FREEV 65 
FREEV 66 
FREEV 67 
TREEV EE 
FREEV 69 
FREEV 70 
FREEV 71 
FREEV 72 
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SUBROUTINE NONOIM(DWAX,RH,AR,f,S,L,PTJ 
DIMENSION RZ <20 ; 

REAL L 
- IEN”D=E0 
DZSTAR=L/IEND 
WRI TE ( 6 » 51 ) l 

51 F O fT MA T t / ////T8X*BOOY GE OH ET RY( DIMENSION At 
1*ZSTAR*11X*RZER0<ZSTAR> *) 

ZST AR=0. 0 
DO 1 X*1»TE1«0 
RZCIT =RZEROCZSTAR) 

WRITE! 6» 50) ZSTAR»RZ (II 
50 F OR M AT ( 3 5 X F 7 .% , 10X57 .A) 

1 ZSTAR*ZSTAR+DZSTAR 

C SEARCH FOR MAX DIAMETER 

DMAX=O.G 

DO 2 I*2,IEN0 

DMA XN* AN AXi ( RZ < 1-1) ,RZ(I>> 

rFfOHAKIt* LE * WAX! GO TO Z 

DMA X=DMA XN 

2 CONTINUE 

RW* DM AX/ 2.0 
F=L /DMAX 

-S*PI*0MAX**2/4. 0 

IF( (RZEROCL) -.GOD.GT.O.O) GO TO 4 
AW= 0.0 

-DO 3 1*1, TEND 

TRA P*OZSTAR/ 2. 0* (RZ (I) +RZCI + 1* ) 

3 AW* AWfTRAP 
AW*(1.0/L>*AW 
GO TO 5 

A AW*0MAX/2.0 
5 CONTINUE 
RET URN 
END 


* . •? NONOI M 1 

, ».<„ w . NONDIM 2 

• •- ; NONDIM 3 

- NONDTH 4 

;/ NONDIM 5 

• NONDIM 6 

LENGTH* *57., 3 y *T*//35X , : WONDIH 7 
; U* '* */' ■ , NONDIM 8 

NONDIM 9 
NONDI ur 
■v NONDI 11 
c. ; v NONOI 12 

' , NONOI 13 

MONOI 14 
NONDI 15 
NONDI n> 
NONDI 17 
NONOI 18 
NONOI 15 
NONOI 20 
NONOI 21 
N O N O I 22 
NONOI 23 
NONOI 24 
NONOI 25 
NONOI 26 
NONOI 27 
NONOI 28 
NONOI 29 
NONOI 30 
NONOI 31 
NONOI 32 
NONOI 33 
NON OI Vi 
NONOI 35 
NONOI 36 
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FUNCTION PORAG t THET A) PDRffTT i 

CON MON ALPHA, PI, PI2, RE, SRE, SQRTPI, OTOR,RTOO,RC ,RCMAXSQ, SIGN A, LEVEL PORAG 2 

C0MM0N/BL0CK7/PHIVT,PHIPT,P1,P2,P3,P4 PORAG 3 

BE G = T H ET A* 16 0,0 APT M UK A G ^ 

CPK =CPC ( THET A) PORAG 5 

POR AG* CP K*C0 S ( T HET A ) PORAG 6 

WRITE C 6,501 DEG ,PHIVT,PHIPT,P 1, P2 , CP K ,PDRAG,R4 POKAG T 

FORMAT <1X,F7«2,7<1X,F12»6) ) PORAG 8 

RETURN PORAG 9 

ENTRY PtTFT PDRAG TO 

CPKsCPC(THETA) PORAG 11 

PLIFT=CPK*SIN( THETA) PDRAG 12 

RETURN PORAG TT 

END PORAG 14 
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SUBROUTINE POTFLOMTPSIKXP, PSIXYP,PSIXRP, IA) 

COMMON ALPHA ,®I ,PI2 ,PE, SRE » S QRTPI , DTOR,RTOD , Ru , RCMAXSQ ,SIGM A 
COM MON/ B LOCK 1/X <180 ) ,Y <100) , X3 <1001 , YBC100) ,XRT<100) , YRT <10 0 
I XRB (loo ),tRB (10 0) 

COM MOM/ BLOC K2 /GAMMA (100),GMA8(100), 6 MRT < 100 ) ,GMR 0 <100 ) 
C0MM0N/BL0CK5/AK,AKSQD, AKHALF, AXDOT 

common/blockio/thet as, theta sb» theta 

COMMON/BLOCK20/OX,OZ,INTX1,NBIG1 
INrEGER ALPHA, A 
REAL L,L B~ 

GO TO < 1 ,?, 3, 4, 5) IA 

L=X <ALPHA)**2fY<ALPHA)**2 

PSIKXP*2.0*X<ALPHA)*Y<ALPHA)/L**2 . = 

PSI KXP*AKSQD*PSIKXP .. 

PSIKYP*1.0«-AKSOO*<Y<ALPHA)**2-X<ALPHA)**2)/L**2 

R E TUR N . ; • - 

LB= XB<AL PHA) **2*YB < ALPHA ) **2 

PSIKXP*2»0*XB<ALPHA)*YB<ALPHA) /LB**2 

PSI KXP* A XS®0*PSTXX P 

PSI KYP =1 ,t)*AKSQO*<YB(ALt'n«» d-XB<ALPHA) ** 2 ) /LB**2 
RETURN 

PSI KR Ps 2 » ~0 * S TMf T H ET A) 

RET URM 

LgXRT<ALPH A)**2»YRT <ALPHA)**2 
IF< LiEQ. Vi 0 )' RETURN 

PSIKXPs2.0*XRT<ALPHA)*YRTfALPHA)/L**2 
PSI KXP=A KSOD*PS I KXP 

PSI XYPrl .“0+AX5QC*( YRT <ALPHA) **2-XRT < ALPHA)** 2) /L^*2 
RETURN 

LB= XRB < ALPHA) **2+YRB<AL PHA) **2 


POTFLO 
»LEVELPOTFl,0 


>» 


POTFLO 
P O TF L u 
POTFLO 
POTFLO 
POTFLO 
POTFLO 
POTFL O 
POTFL ID 
POTFL 11 
POTFL 12 
POTFL 17 
POTFL 14 
POTFL 15 
POTFL 10 
POTFL 17 
POTFL 18 
POTFL 15 
POTFL 20 
3 0TFL 21 
’OTFL 22 
POTFL 23 
POTFL 24 
POTFL 25 
POTFL 26 
POTFL 27 
POTFL 2 8 
POTFL 29 
POTFL 30 


IF< LB. EO.O.'O) RETUR) FOTFL 31 

PSI KXP = 2 » fl*XRB < ALPHA) *YRm ALPHA ) /LB* *2 POTFL 32 

PSI KXP=AKSQD*PSIKXP POTFL 33 

PSI KYPsl,0*-AXSlID*<rRB<ALPHA)**2-XRB( ALPHA) **2)7UB**2 POTFL “34 

RETURN POTFL 35 

END POTFL 36 
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SU8F0UTINE PSICX,Y, GHA,N0IM,KI,KF,IA f ie,SUM,SUNl,TK1 P SI 

COMMON ALPHA,PI f PI2,RE f SREtSQRTPI, OTOR,RTOO,RC, RCMAXSO, SIGH A, LEVEL PSI 
C0NM0N/9L0CK57 AK, AKSQO, AKHALF, AKOOT PSI 

€ OM HON /PLOCK 30/T , IT ,~OELT ,3EL IT ,OELTB PST 

CONMON/VTX1/XX, YY PSI 

DIMENSION X ( NOIM) « Y (NDIM) , GMACNDIN) , TKCNOIM) PSI 

BEAL L PSI 

INTEGER ALPHA, A PSI 

SUM=SUM1=0.0 PSI 

DO I A^KI,KF PSI 

IF< ALPHA. EO. A.AN0.IA.EQ.I9) GO TO 1 PSI 

IFL AG=0 PSI 

L«X tAJ**2«TtAI**2 PSI 

Rl= <XX-X(An*MMYY-Y(A)>**2 PSI 

R2= (XX -X ( A) * A<S QO/L) **2+(YY-Y(A) *AKSQO/L) **2 PSI 

TFCR1.GT.RCMAXSQ1 GO TO 2 PSI 

RCSO=5.0 4MT-TK<A>> /RE PSI 

IFtRl.GT.RCSQI GO TO 2 PSI 

.. POTENTIAL VORTEX APPROX INVALID PSI 

IFLAG=1 PSI 

GMA (A) =0.0 PSI 

CONTINUE PSI 

SUN=SUMMGNA ( AI /PI2) M tXX-X < A) 1 /R1«>XX/ARE- (XX- X ( A) ♦AKSOO/L) /R21 PSI 
SUH1=SUM1MGMA(A>/PI2>* (CYY-Y(A) > /R1 +YY/ARE- (Y Y- Y ( A) * AKSQD/L > /R2> PSI 
IF( IFL AG * Ed. 1) GMA(A) =GMR$ET PSI 

CON TTNt/E PST 

RETURN PSI 

ENTRY PSIONE PSI 

SUM=0. 0 PSI 

00 3 A=KI,KF PSI 

IF( Xf A) .EQ.0.1* ANO.Y(A) .EQ.O.O) GO TO 3 PSI 

IFL AG=3 PST 

L=X <A)**2*Y(A)*M PSI 

Rl= fXX-XCA)) **2MYY-Y(A)) **2 PSI 

PCS G*RC^RC PSI 

IF(Rl.GE.RCSQ) GO TO 4 PSI 

♦ . POTENTIAL VORTFX APPROX INVALID PSI 

IFL AG^i PSI 

GMRSET=GMA(A1 PSI 

GMA (A) =0.0 PSI 

CONTINUE PST 

SUM=SUM* (GMA (A) /(PI2*AK1> M (AKSQD-L) /Ri+1.0) PSI 

IF( IFL AG .EGU i) GMAC A)=GMRSET PSI 

CONTINUE PST 

RETURN PSI 

END PSI 


1 

2 

3 

4 

5 

6 

7 

8 
9 

ID 

11 

12 

13 

14 

15 
T6 

17 

18 

19 

20 
21 
Z2 

23 

24 

25 

26 
27 
Z8 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 
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SUBROUTINE PVTX, r,T0T7T0T,TrHS7NirrH, KT,KF,SUH,TKT 

, tv 

1 

COMMON ALPHA, PI, PIE, RE, SRE,SQRTPI,DTOR,RTOD,RC,RCMAXsa, SIGMA, 

LEVELPV 

2 

COM M0N/8L0CK5/AK »AKSQD, AKHALF, AKDOT 

• PV 

3 

COHHON/PRSURE/XX,YYySINE,COSINE 

"PV 

«♦ 

COM MON/ B LOC K30/T ,TI , OELT, OELTT ,UELT B 

PV 

5 

OIM ENSION X (NOIM) , Y (NOIM) , XDT ( NOIM) , YDT (NO IN), GMA (NOIM) 

; PV 

6 

DIMENSION TK(NOIM) 

PV 

r 

REAL L 

PV 

8 

INTEGER A 

PV 

9 

SUMSO.TT 

TV 

ro- 

00 1 A=KI,KF 

PV 

ll 

L*X (A)**2+Y(A)**P 

PV 

12 

1FL AGs O' 

PIT 

13 

CAP A= (X( A) ’COSINE+Y (A) *SINE) 

PV 

14 

Ri= AKSQ0+L-2.0*AK*CAPA 

PV 

15 

R2*TAKSQU*L » A»CS QD» » 2 -2 . U*A1C»»3 »C AP A ) 7L 

TV 

TV 

RCSQ=RC*RC 

PV 

17 

IF(Rl.GE.RCSQ) GO TO -34 

PV 

18 

-SQR lsSQRTCRt) 

TV 

IV 

WRI TE(6,50)A, SQR1 

PV 

20 

FOR MAT t* POTENTIAL VORTEX APPROX INVALID ALPHA=*I3, 5X, 

PV 

21 

1»C0RE RAPIUS g »F12.6) 

PV 

22 

... POTENTIAL VORTEX APPROX INVALID 

PV 

23 

IFL AG=i 

PV 

24 

GHRSET g GWA(Ar 

PV 

25 

GMA (A) =0.0 

PV 

26 

CONTINUE 

PV 

27 

CAP X g ( AKSQO+X3T CAT ♦2.0*AK*XC A>~*'AKOOT)'A. 

TV 

2V 

l-(2 .0*AKSQD*X( A) /L**2)'MX<A)*XDT(A) 4-Y(A)*YOT(A>) 

PV 

29 

CAPYsCAKSOD*YOTCA)+2.0*AK*YCA) *AKD0T)/L 

PV 

30 

t^(2.tr*AtCS0D»Y( A) /L» * 2) ^ (X t A ) *XDT ( A ) ♦ Y ( A1 *YOT C A V) 

PV 

31 

SUM =SUM«- (GMA (A) /PI2) * ( ( YDT ( A) * CXX-X ( A) ) -XOT (A) * (YY-Y ( A) ) )/Rl 

PV 

32 

1-(CAPY*CXX-AKSQD*X(A)/D-CAPX*(YY-AKSQD*Y(A1/L))/R2) 

PV 

33 

IF( IFLAG .EO. rr GHAtATsGMRSET 

TV 

34 

CONTINUE 

PV 

35 

RETURN 

PV 

36 

"END 

PV 

37 
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31 

32 


35 


SUBROUTINE RITETHT , IOIH, JOIN ,U , ZN , M X., S,TJEG , ZHAT,OELS , 
DMENSION ? UCIDIH,2,JDIM> . ; V . ’’ 7*', y> ’ 

DIH ENSION F0R60 1 <4* , FOR560 ( 3 ) i F0R561 ( 3) ,FOR580 (2) . > 
DMENS IO N tnttSTT , DEG (53) ,• -l.- v ■ • -V ■ V ,< ; 

DIMENSION S< 53* , ZN( 531 , . .. X-T.;, - XX-v,- 

C0550N/BLOCK20/DX,DZ,INTX1,NBIG1 _'v . 

*05 M0N/BL0CK33/T , TT , DEL T » DEL T T , DEL T B ' X • 

;05M0N/BL0CK5/AK,AXSQD, AKHALF,AKOOT 
C05M0N/BLB0X2/TAU,PT4.NBIG 
MI=TNTX1 /l? 

1=1 

5=1 

IF(5I.EG.01 GO TO 35 

MM= 12 •• 

IF<MT.EQ.1)WRITE(6,549)TI v.n 

IFtMT.EQ.21 WRITEI6,5501 K,T , ZHAT, AX, AXDOT 
WRI TEf6» 600) <NX(I) ,1=1,12) 

GO TO 32 . .. ... 

WRI TEL6, 6011 
WRI TE(6, 560) 

WRI TEC 6, 561) 


X) .. 


’ S.r 


(MX Cl) ,1=5,55) 

(SCI), 1=5, M5) 

(DEG(I) ,1=5,55) 

WRI TE (6 , 5001 tZWfJT, (UtT,5T , J) , 1=5, 551 ,J=1,NBIG) 

1*1 i i 

5=55*1 
55=5*11 

IF( I.LE.MI) GO TO 31 * ' **■ 

IF(M-l.EG.INTXl) GO TO 33 
55=TNTX1 :■ 

N=( 55-5) *1 . . ‘ 

NN= N*1 '•/ I'C . , . 

ENCODE (33,1000, F0R60DN : J 

ENC ODE (2 9, 10 04, FOR560) N. r,.. 

ENCODEC30, 1005, F0R561) N. • r- 

ENOOOE (16,1002, F0R5301 NN X-r < . - 

IF( 5I.EQ.0) WRITE (6, 550) K,T ,ZHAT ,DELT ,DELS,DZ 
WRI TE(6, F0R6 01) (NX (I) , 1=5,55) 

WRI TE ( 6 , F0R5 601 (S( I) ,1=5,55) 

WRITE (6, F0R561) COEG(I) ,1=5,55) 

WRITE(6,FOR580) (ZN ( J) , CU( I,5T, J) ,1= 5,55) , J=1,NBIG> 
CONTINUE 
RETURN 

FOR HAT (1H1, 40X* BOUND ARY LAYER VELOCITY DISTRIBUTION ( 
1F5.3,/) 

550 FOR MAT (1 HI, 5 OX* BOUND ARY LAYER VELOCITY DISTRIBUTION*/ 
1*T= *F6.3,5X*ZNAT=*F6.3, 5X* AX**F6.3, 5X*AK00T=*F6. 3) 
m FO R M AT!* R* (RAO)** , IX, 12CF9.5 , 1X1 ) 

FORMAT (* OEG)i**,TX,12(F9.5,lX)/) . - 

FOR MAT (IX, 13 (F9. 5, IX)) 

FORMAT!/* NCYCLE *, 1 2(4X ,12 , 4X> // . 

FORMAK///* NCYCLE * ,12(4X, 12, 4X) //) 

FOR MAT (18H(///* NCYCLE *, , I 2, 13H ( 4X, 12. 4X) //) ) 
F0R5ATtRH(lX,,I?,10H(E9.5,lX)) ) 

FORMAT (17H(* R* (RAD)** ,1X, , 12 , 105 ( F9.5 , IX) ) ) 

FOR MAT (17H(* (DEG)** , IX, , 12 , 11H ( F9. 5, IX) /) ) 

END 


■•■■-•I . 




V';-‘ 


33 


549 


561 

580 

600 

601 

1000 

tool 

1004 

1005 


UI ) 
30X* Ks 


RITE 

1 

RITE 

2 

. . RITE 

3 

' - , RITE 

<♦ 

XV RITE 

5 

RITE 

6 

. . RITE 

7 

'■ .RITE 

8 

RITE 

9 

rite: 

ro 

RITE 

ii 

RITF 

12 

RITE 

13 

J. RITE 

14 

RITE 

15 

X-;. RITE 

re 

RITE 

17 

RITE 

18 

RITE 

19 

,..v RITE 

20 

•'Vv rite 

21 

rite 

rz 

RITE , 

23 

. RITE 

24 

tj’V. RITE 

25 

' RITE 

26 

RITE 

27 

. RITE 

28 

RITE 

29 

. RITE 

30 

RITE 

31 

• • RITE 

32 

RITE 

33 

...... RITE 

34 

... rite 

35 

RITE 

36 

RITE 

37 

RITE 

38 

RITE 

39 

RITE 

4U 

RITE 

41 

:=* RITE 

42 

RITE 

43 

: 2 , 5XRITE 

44 

RITE 

45 

RITE 

>b 

RITE 

47 

RITE 

48 

RITE 

49 

RITE 

50 

RITE 

51 

RITE 

5? 

RITE 

53 

RITE 

54 

RITE 

55 
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SUBROUTINE RSEP tTHT ASF, THTASR, THTA ,UBL, INTX1,INITAL, MODE) 
COMMON ALPHA, PI, PI 2 ,RE, SRE, SQRTPI ,DTOR,RTOD ,RC,RCMAXSO ,SI( 
DIM ENSION THTA(53),UBL(53) 

..... SEARCH B.L. FOR MAX VELOCITY 
DO 1 I=2,INTX1 

UFMXN=AMAX1 CU3LCI-1) ,UBL(I) ) 

IF( UFMXN .LE.UFMX) GO TO 1 
IMA X=I”i 


UFM X=UFMXN 
CONTINUE 

TMT AMXF=THTA tIMAX) 

URM X=0.0 

, . SEARCH S.L. FOR MAX 


BACKFLOW VELOCITY 


DO 2 I=ISLS, INITAL 

URM XN=AMINI(UBL(I-11 ,UBLCI) ) 

IFt URHXN .GEvURtTX ) GO TO 2 
JMA X=I-i 

I Ft URHXN.LT. U3L <I-1))JMAX=I 
"URM X-URtTXl 
CONTINUE 

THT AMXR=THTA(JMAX) 

• . SEARCH EVC. F OFTEFO “VE1.0CTTT 
ISL E=INI VAL-i 
DO 4 I=ISLS, ISLE 


IFf I.EQ.ISLS) GO TO 3 
IFI UZN.GE.U2> GO TO 4 


50 


IF( UZN. LT. ABSCU8L (1-1) ) )KMAX=I 
UZ- UZN 

-cor mro r 

THT AZRO-THT A IKMAX) 

. CALCULATE S.L. SEPARATION POINT 
X s tTHTATRO” T HTARXFJ /TTHTASF- T HT AMXF T 
THT ASR=THTAMXR- « (THT AHXR-THTAZRO) /X) 

THT AMXF=THTAMXF*RTOD 

THT AZRO=THTAZRO*RTOD 
THT ASRD=THTASR*RTOD 

"HRTTETBvEIOUFMXvTHTATfXEyURMX ,7flT AWXR 9 UZ , THTAZRff, THTtSRO” 

FORMAT (i HI,* MAX VEL0CITY=*F6. 3,* AT THETA=*F5 .1, * DEGREES*/ 

1* MAX BACKFLOW VEL-*F6, 3,* AT THET A=*F5.i» * DEGREES*/ 

T* (TIN TANGFNTItn. VET.UCTTT BETWE E N " MATX VELOCTTY" AW MATT BTCKFLOW 1 
3L0C ITY=*F6.3,* AT THET A=*F5 . 1, * DEGREES*/* REAR SEPARATION ANGLE: 
4F5. 3,* DEGREES*) 

“RETURN - 

ENO 


RSEF 

T 

LRSEP 

2 

RSEP 

3 

RSEF 

5 

RSEP 

5 

RSEP 

6 

"RSEF 

~T 

RSEP 

8 

RSEP 

9 

RSEF 

nr 

RSEP 

11 

RSEP 

12 

RSEF 

IT 

RSEP 

14 

RSEP 

15 

ksER 

W 

RSEP 

17 

RSEP 

18 

RSEF 

IT 

RSEP 

20 

RSEP 

21 

RSEF 


RSEP 

23 

RSEP 

24 

RSEF 

25 

RSEP 

26 

RSEP 

27 

RSEP 

TW 

RSEP 

29 

RSEP 

30 

RSEP 


RSEP 

32 

RSEP 

33 

RSEP 

W 

RSEP 

35 

RSEP 

36 

RSEP 

3> 

RSEP 

38 

RSEP 

39 

RSEP 


RSEP 

41 

RSEP 

42 

RSEF 

¥3 

RSEP 

44 

RSEP 

45 

rERSEF 

~W6 

*RSEP 

4? 

RSEP 

48 

RSEP 

W 

RSEP 

50 
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SUBROUTINE RVTX f X, Y , GMA ,THTASR ,THTA SM,THTArS,UZZ» UZZSQ ,GAMA , 
1M0DE,KRN,N,NF,IFLAG,GMATL,NDIM,TK) 

DIMENSION XCNOIM),Y CNOIM) ,GMACN0IM) ,TK(NOIM) 

D I M E NS I ON THTftST6r,UTZT6T , U Z ZS Q T6T ,GARA t 6) ,TFL AGTFT 

COMMON ALPHA, PI ,PI2 , RE, SRE, SQRTPI , OTOR,RTOD,RC ,RCMAXSQ , SIGMA . 

COM MON/KAYS/K»KS,KR,KT , K8,KRT, KRB 

COM MON r B L OCK?/ A K , AKSOD , AKHALF, AKOOT 

COM MONXBLOCKIO/THET AS,T HETASB, THETA 

COMMON/BLOCK30/T ,TI ,DELT,OELTT ,0ELTB 

IF C K .N R.-KRT TO TCT 

NFs 5 

N=N F 

GMATLsH). 

1 NsN +1 
THTAS(N) =THTA3R 
~TW £TAsTHTft S~ C N ) 

CAL L FREEVTX (PS IK1X , PS I KIT , PSI KIR, 3 ) 

CALL POT FLOH(PSIKXP,PSI KYP, PSI KRP, 3) 

VZZ CN)=RSIK1R*PSIKRP 

THT APsTHTASCNI*RTOD 

HRI TEC6, 6001 N, THTAP , UZZ CN) 

OTO FORtHATtr/^ RVTX S UB ROUT » T H E TAS TNT=~»FT2V6, 

12X*U«0CN)=*F12.6) 

UZZ CN) sABSCUZZ ( N) ) 

GZZSQfN) =UZZCM)*U7ZCN) 

GAM AC N) = -DEL T* UZZSQ CN) / 2.0 
IFCM00E.EQ.2)SAMACN>=-GAMACN) 

W RITE t 6, 6 0 1) GA M A C RT 
601 FORMAT (* GAMA! N? =*F12. 6> 

IFC N.EQ.NF+l) GO TO 10 
TFLAGCN®1)=0 

IF( THT AS INI -THTASCN-1) ) 3,4, 2 

2 IFCMODE.EQ.l) IFLAGCN-1)=1 
~GG "TO 5 

3 IFC MODE. EQ# 2? IFLAG(N-1)=1 
GO TO 5 

R IFLAG1t*«i:>~i 
5 CONTINUE 

IFC IFLAG CN-ll.EQ.l) GMATL=GMATL«-GAMA IN-1) 


602 FORMAT C/* GAMA CHECK SUM=*F12. 6,5X*N=*I3,5X*IFLAG CN-1)=*I3) 
AGM ATLsABSIGMATL) 

TFT AGHATt .L£.. 1) GO TO 6 
IFCGMATL.LE. .1) GO TO 6 
NFs N 
GO TO -f~ 

6 IFCN.LT.5) RETURN 

7 THT ASMsTHTASCN) 

GMA TL»0. 

RET URN 

IFSK.EO. KRS GO TO 2000 


10 

20 

30 


IFC THT AS (N) -THT ASM) 30,40, 20 
IFCMODE.EQ.l) IFLAG CNF) =1 
GO TO 50 

IFC MODE. EQ. 2) IFLAG CNF) =1 
GO TO 50 


RVTX 

i 

RVTX 

2 

RVTX 

3 

mrrx 

4 

LRVTX 

5 

RVTX 

6 

RVTX 

7 

RVTX 

8 

RVTX 

9 

“RVTX 

TtJ 

RVTX 

11 

RVTX 

12 

RVTX 

IT 

RVTX 

14 

RVTX 

15 

RVTX 

T6 

RVTX 

17 

RVTX 

18 

RVTX 

19 

RVTX 

20 

RVTX 

21 

rvtx 

~7T 

RVTX 

23 

RVTX 

24 

RVTX 

25 

RVTX 

26 

RVTX 

27 

■RVTX 

"2B 

RVTX 

29 

RVTX 

30 

RVTX 

31 

RVTX 

32 

RVTX 

33 

RVTX 

34 

RVTX 

35 

RVTX 

36 

RVTX 

37 

RVTX 

38 

RVTX 

39 

■RVTX 

4ir 

RVTX 

41 

RVTX 

42 

RVTX 

4T 

RVTX 

44 

RVTX 

45 

RVTX 

45- 

RVTX 

47 

RVTX 

48 

RVTX- 

49~ 

RVTX 

50 

RVTX 

51 

RVTX 

57 

RVTX 

53 

RVTX 

54 

RVTX 

55 

RVTX 

56 

RVTX 

57 

-RVTX 

5t 
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50 

CONTINUE ........ 

RVTX 

59 


THT AP*THTAS(N> *RT0D 

RVTX 

60 

~ 

THT APM=THTASM*RTOD . 

RVTX 

61 


MUI TE(6f603)NfNFfIFLA& (NF) *THTAP*THTAPH 

, RVTX 

62 

603 

FORMAT (/* OVERLAP CHECK N=*I3, 5X*NF = *I3,5X*IFLAGCNF) = *I3, 

RVTX 

63 

t5X*THTAS«N>=*F12.6,5X*THTASH=*F12.6> 

RVTX 

64 

~ 

000=0.0 

RVTX 

65 


UOOSQsO.O 

RVTX 

66 


GAM =0. 

RVTX 

67 


THT «SR = 0 • 

RVTX 

68 


RN=,0, 

RVTX 

69 


N*1 

RVTX 

70 

iut> 

IFMFLAGtN) .EG.O) GO TO 200 

RVTX 

71 


RN»RN*1. 0 

RVTX 

72 


UOO =UOO*UZZ IN) 

RVTX 

73 


WO SQ=U 0 OSH*UZ ZSH ( N) 

RVTX 

74 


GAM*GAM*GAMA(M) 

RVTX 

75 


THT ASRsTHTASR+THTAS CN) 

RVTX 

76 


NRITE<6,60«»>N,UOO,UOOSO,6AM,THTASR , 

RVTX 

77 

604 

FORMAT (/* LUMP SUMS N=*I3, 2X*U(TO=*F12.6,2X*UOOSQ=*F12.6, 

RVTX 

78 


12X*GAM«*F1?.6,2X»THTASR=*F12.6) 

RVTX 

79 

TDD 

IEtN.EH.MFT 60 TO IttOO 

RVTX 

60 


n*n n 

RVTX 

81 


GO TO 100 

RVTX 

82 

itoo 

CONTINUE 

RVTX 

63 

' - 

SMA LLM= C RN*DELT /PI 2) M U 00 SQ/UO 0) 

RVTX 

84 


THTASRsTHTASR/RN 

RVTX 

85 


KRN=KRN» 1 

RVTX 

66 


X (KRN) = ( AK+5MALLM) *COS (THTASR) 

RVTX 

87 


YCKRN) *1 AK+SMALLM) *SIN<THTASR) 

RVTX 

88 


GMA tKRNT =GAM 

RVTX 

69 


GHA CKRN) *SIGNA*GMA(KRN> 

RVTX 

90 


THT AP*THTASR*RTOO 

RVTX 

91 


TKt KRN) =T 

RVTX 

92 


HRI TE( 6, 605) SMALLM, THTAP, KRN,X < KRMI , Y 1KRN) , GMA CKRN) 

RVTX 

93 

505 

FOR MAT iff* RVTX BIRTH SMALLN=*F12.6,5X*THTASR<AVERAGE)=*F12.6, / 

RVTX 

94 


15X*TCRN=^I'3,2X*X CKRNT=*Fi2.6,2X*Y f<RN)=*F12.6,2X*GMA (XRir) 

RVTX 

9R 

2000 

U7Z Cl)sU7ZCNF+l) 

RVTX 

96 


UZZSQC1) =UZZSaCNF*l) 

RVTX 

97 


GAO AU )=HAN* tVT-n.) . 

RVTX 

96 


THT ASCII *THTAS«NF+1) 

RVTX 

99 


N*i 

RVTX 

too 


NF=-E 

RVTX 

rur 


RETURM 

RVTX 

102 


END 

RVTX 

103 
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FUNCTION RZROfZHAT »L rRW) 
REAL l 

RZR0=RZER0(ZHAT*L>7RH 
RET URN 
ENTRY ORZRO 

R7r6=<L/RVO*ORZERO<ZHAT*L> 

RETURN 

end; 


RZRO 1 
RZRO 2 
RZRO 3 
RZRO «♦ 
RZRO 5 
RZRO 6 
■RZRO' 7 
RZRO 8 
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FUNCTION UAPRX1 (L,N,IDIH, JDIM, U) 

DIMENSION U(I0IM,2, JDIH) 

C **********FIRST APPROXIMATION TO U(L+1,2»N) 

uap *xi=u a* i ,1 ,m *u o., 2 >i<n a , i, Nr 

RETURN 
ENTRY US 

US= tUCL*i»l»N)+Ua, 2,N1 ftrtL,l,NtJ/4.0 
RET URN 
ENT RY UL 

JL=UtU-l,l,N)-UTt,?,NT-U(L,l,N) 

RETURN 
ENTRY UM 

um* utt. , 2 f m -im. * i , i , N) - utt. , i ,tn 

RETURN 

ENO 


• U'APRXI 1 
U’APRXI 2 
U’APRXI 3 
UAPRXT 4 
' U’APRXi 5 
--U'APRXI 6 
UAFRXI T 
UAPRX 1 a 
' U APRX 1 9 
UAPRX 10 
UAPRX 11 
UAPRX 12 
• iAPRX 13 
UAPRX 14 
- UAPRX 15 
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1 


SUBROUTINE VEL TX,Y, TOT, YDT, NOTH, KI,XF,IA) "VEL 

COMMON ALPHA, PI, PI2, RE, SRE,SQRTPI,OTOR,RTOO,RC,RCMAXSQ, SIGMA, LEVELVEL 
C0NM0N/BL0CK5/AK»AKSQ0, AKHALF, AKDOT VEL 

OIMENS I ON XCNTJim ,Y(NOIM) ,TOTTNOTHT , YOTXNUTHl YEL 

INTEGER ALPHA VEL 

REAL L VEL 

00 1 ALPNAsKI,XF VEL 

L=X <ALPHA)**?*Y( ALPHA) **2 VEL 

CALL FREEVTXCPSIK1X,PSIK1Y,PSIK1R,IA> VEl 

CALL PUT FLONTPSTKXP ,"PSI KYP, PSIXRP, Iff) VEL 

PSIKX=PSIKXP«-PSIK1X+AK*AKD0T*Y (ALPHA) /L VEL 

PSIKY=PSIKYP*PSIK1Y-AK*AK00T*X (ALPHA) /L VEL 

XOI (ALPHA! =-PSIKY VEL 

YDT (ALPHA!=PSIKX VEL 

CONTINUE VEl 

RETURN VEL 

END VEL 


1 

2 

3 

4 

5 

6 

7 

8 
9 

IT) 

11 

12 

IT 

14 

IE 

16 

17 
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1 

6 tH 

6 m. 


i,i\a,m-,ui/ VTT 

COM HON ALPHA, PI, PI2, RE, SRE,SQRTPI,DTOR,RTOD,RC,RCMAXSQ, SIGMA, LEVELVM 
COM M0N/BL0CK5/AK,AKSQ0, AKHALF, AKDOT 
DI M EN S ION - Xt NOIH) ,Y (NO I H) , XD T(N DI H) , fOTIW O im 
INTEGER ALPHA 
DO 1 ALPHA=KI,KF 


YTEMP=Y(ALPHA) 

X (A LPHA1 =X (ALPHA) +DT*XDT( ALPHA ) 

V(ALP H A) = Y (AL P HA) » DT *Y D T ( AL P HA ! 

R=S QRT CXI ALPHA) **2+Y (ALPHA) **?) 

IF(R.GT.AK) GO TO 1 
WITEtG,^imxC1tLPHimYTALPWA) 

CALL VMFIX(XTEMP,YTEMP, XDT (ALPHA) , YOT (ALPHA) ) 
XCALPHA) =XTEMP+OT*XDT( ALPHA) 


WRI TE (6, 601) XCALPHA) ,Y( ALPHA) 

CONTINUE 

F ORTttT <//*BE FO REVMFI XTX (ALPHA) ,Y (A LPHA D = ( *F8.5,*, *F 8 i5f*T *) 
FORMAT!//* AFTER VMFIX (X (ALPHA) , Y (ALPHA) )= (*F8. 5 , *,*F8.5,* )* ) 
RETURN 
TNtT 


1 

2 


VM 

3 

TH 

TT 

VM 

5 

VM 

6 

VH 

T 

VM 

8 

VM 

9 

VH 

ro- 

VH 

il 

VM 

12 

VH 

IT 

VM 

14 

VM 

15 

~VK 

T6 

VH 

17 

VM 

18 

VM 

T9 

VM 

20 

VM 

21 

VM" 

72 
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SUBROUTINE VHFIX CX, YfXDOT, YDOT) ’ \ 

COMMON ’ALPHA, PI, PI2, RE, SRE,SQRTPI,DTOR, 
COM MON /BLOCK 5/ A K,AK SOD, AKHALF, AKOOT 
COM H O N /BL OC KI O / T H ETTS, THETAS B, THET A 
DEF =.001 

IFCX.NE.O) GO TO IB 

• tsl- ; ! 

ANGLE* PI /2. 0 

if<y;lt.o>l 3 2 

GO TO 30 

10 IFC Y,NE. 0) GO TO 20 
• L=1 

ANGLE 3 0.0 
■ IFC X.LT . 0) L 3 2 

TFnutr.irr angle=pi 

. GO TO 30 

?Oj IFCX.GT.O.O.AND.Y.GT.O. 0)L=1 

’ IFCX.LT. 0.0. AND. Y.GT.O.O)L=2 - > . 

IFC XiLT, 0.0. ANO.Y.LT.O . 0)L=3 ; JA ' * 
IFCX.GT. 0.0. AND.Y.LT.O. 0)L=4 
ANG LE-AT ANTY/X) 

30 CONTINUE 

SIN E=SIN CANGLE) 

COS INE 3 C OS C ANGLE) 

GO T0C1, 2,3,4) ,L 
t X=C AK«-DEF)»C03INE 
Y=tAK*-OEF) •ST'CE 
XDOT=XDOT*SINE 
YDOT=YDOT*COSINE 
U=- XOOT «■ YDOT 
XOOT 3 -U*SINE 
YDO T=U*COSINF 
GO TO 5 

2 X 3 - tAK*DEF)*COSINE 
Y=- CAK*OEF>*SINE 
XOOT=-XDOT*SINE 
YDOTsYOOT»COSINE 
Us-XOOT-YDOT 
X PO T=U » S TNE 
YDOT 3 -U*COSINE 

GO TO 5 

3 X®- CA*+OEF)*COSINE 
Ys- CAKfOEF)*SINE 
XOO T»XOOT 3 SINE 


U=X DOT -YDOT 
XDOT 3 U*SINE 
YOO T=-U*COSINE 
GO TO 5 

XsC AK*DEF)*COSINE 
Is C AK+DEF)*STNE 
XOOT 3 -XOOT»SINE 
YOOT 3 YOOT*COSINF 
UsXOOTtYDOT 
XOO T*-U # SINE 
YOO T=U*COSINE 
GO TO 5 


VHFIX l 

RTOO,RC »RCMAXSQ, SIGMA, LEVEL VMFIX 2 
. . .VMFIX 3 

VHFIX "4 
VMFIX 5 
- VMFIX 6 

- VMFIX 7 

> .. VMFIX 8 

VMFIX 9 
• . VHFTX TV 

VMFIX 11 
VMFIX 12 

. •. i- VMFIX 13 

VMFIX 14 
VMFIX IF 
- VHFIX IF 

VMFIX 17 
VMFIX 18 

•••••■ v . VMFIX 19 

. ■ •,*..■ VMFIX 20 

VMFIX 21 
VHFIX 22 
VMFIX 23 
VMFIX 24 
VMFIX 25 
VMFIX 26 
VMFIX 27 
VHFIX 28 
VMFIX 29 
VMFIX 30 
VMFI X 31 
VMFIX 32 
VMFIX 33 
VMFIX 34 
VMFIX 35 
VMFIX 36 
VMFIX 37 
VMFIX 38 
VMFIX 39 
VHFIX 40 
VMFIX 41 
VMFIX 42 
VMFIX 43 
VMFIX 44 
VMFIX 45 
VHFIX 46 
VMFIX 47 
VMFIX 48 
VMFIX 49 
VMFIX 50 
VMFIX 5J 
VMFIX 52 
VMFIX 53 
VMFIX 54 
VMFIX 55 
VMFIX 56 
VMFIX 57 
VMFIX 58 
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CONTINUE 

RTO 0=180. 0/PI 

APE G=AN GLE»RT OP 

FORMAT (//* VMFIX*2X*ALPHA = *I3,2X*ANGLE=*F12.6,/* X=*F12.6, 
12X*Va*F12.6, 2X*XOOT = *F12.6,2X*YDOT=*F12.6) 

RET URN 
END 


VMFIX 59 
VMFIX 60 
VMFIX 61 
VMFIX 62 
VMFIX 63 
VMFIX 6<* 
VMFIX 65 
VMFIX 66 



J 

2 

3 


11 


12 

13 


14 


15 

15 

ir 


t« 


19 

■tu- 

rn 

602 

993 

701 

7*2 

703 


SUBROUTINE WRIT CX,Y ,XD0T,YDOT, GAMMA ,XB,YB, XOOTB, YD0T8, GMAB, 

1KIT ,KFT,KIB,KFB,K,NOIM, IW) 

DIMENSION XCNDIM) ,Y CNDIM) ,XDOT CNDIM) ,YOOT(N0IM) , GAMMA (NOIM) , 

1 'X Bt N O IM) , YB ( W OTWI'V XOOT B (NOIM) , YOOT9 ( NDI H ) , GH A3 CNOIH) 

IFC XFT-KFB) 1,2,2 

KF= KF8 

GO TO 3 

KF= KFT 

CONTINUE 

~TF( K IT .G T y KTBT GO TO 17 
DO 16 I*KIT,KF 
IF1I.GE.KSB> GO TO 12 

NRITET6,-601> I,K,xm ,YCI> ,XOOT f I), TOOT CD, GAMMA (I) 

IFC IW.NE.7. AND. IW.NE.9) GO TO 16 

MRITE(IH,701> I,K,XCI>, Y(I) ,XDOT(I ) ,YOOTCI> , GAMMA <I> 

69 Tfr 16r 

IFCKFT.NE.KFB) GO TO 14 

WRITE (6, 603) I,K,XCI),Y CD , XOOT Cl) , YDOT C I) , GAMMA ( I) , 

1 XBt I) , YB CI> , XOOTB Cl ) yYOOTBC I) , GMAB C I ) 

IF( IW.NE.7.AN0. IW.NE.9) GO TO 16 

WRITECIW,703) I ,K, X Cl) , YCI) ,XDOT (I) , YOOT CD , GAMMA (I) , XB(I) , YBCI ) 
1X00 TB C D , TOOTTtDyG'KABTT) “ 

GO TO 16 

IFCKFT.LT.KFB) GO TO 15 
IFCT.tE.KF8) GO TO 13 
GO TO 11 

IFCI.LE.KFT) GO TO 13 

CONTINUE 

GO TO 20 

CONTINUE 

00 19 I*KIB,KF 

IFCI.GE.KS) GO TO 18 

WRI TEC 6, 602) I,K,XBCI) ,YBCI) , XOOTB C I) ,YDOTBCI) , GMAB CI> 

IFC I W.N E .7.*Nfr.tW;TrEr9) 60 TO 19 

WRTTECIW,702> I,K,XBCI) ,YBC I) , XOOTB C I) , YOOTBCI ) , GMABC I) 

GO TO 19 

WRITEt6 , 603) I, KyXCI) , Y Cl) , XOOTCI) ,YOOTCI), GAMMA CD, 

1 X8C I), YB Cl), XOOTBCI), YOOTBCI), GMAB CI) 

IFC IW.NE. 7. ANO. IW.NE.9) GO TO 19 
W RI TECIW , 7910 I , KyXTT) , YTD , X0CTtir,YO0T 
1XD0TBCI) , YOOTBCI), GMABCI) 

CONTINUE 
CONTINUE 

FORMAT C2XI3, 2X13, 5C2X,F 10.6) ) 

FORMAT C2XI3,2XI3,6*X,5C2X,F10.6)) 

- F O R M AT C 2 X 13, 2X1 3,19 T2X, F19. SIT 
FORMAT C2I4,5F7. 3) 

FORMAT C2I4, 35X, 4F7. 3) 

FORMAT C 214, 10F7 • 3) 

RET URN 
END 


WRIT 

1 

WRIT 

2 

WRIT 

3 

~WRTT~ 


WRIT 

5 

WRIT 

6 

WRIT 

7 

WRIT 

8 

WRIT 

9 

WRIT 

ru 

WRIT 

ii 

WRIT 

12 

WRIT 

13 

WRIT 

14 

WRIT 

15 

"WRIT 

Tfr 

WRIT 

17 

WRIT 

18 

WRIT 

19 

WRIT 

20 

, WRIT 

21 

"WRIT 

TT 

WRIT 

23 

WRIT 

24 

WRIT 

25 

WRIT 

26 

WRI T 

27 

WRIT 

ztr 

WRIT 

29 

WRIT 

30 

WRIT 

31 

WRI1 

32 

WRIT 

33 

-WRIT 

T4“ 

WRIT 

35 

WRIT 

36 

WRIT 

37 

WRIT 

38 

WRIT 

39 

7" WRIT 

‘40 

WRIT 

41 

WRIT 

42 

WRIT- 

43 

WRIT 

44 

WRIT 

45 

WRIT 

"46" 

WRIT 

47 

WRIT 

48 

WRIT 

^9 

WRIT 

50 

WRIT 

51 



PROGRAM ADYNF <INPUT» OUTPUT, TAPE3«INPUT»T»PE6*0UTPUT) 

• COPMCN/INPUT/LXtXX ) *U (i<jO) *\JAOD»ADOXl (26) .MODE 
COKJ4fiiM/Ol,|TPUT/UFPgOP(tOO) . Ff T( (100) tXjL (2<j) .C0FF| fPT.yl 

* V0oDL(28*2) *KNOT#LPAX» INTERV ' . 

' C0PMCN/0THER/LXI,LXIj;LXi2,©,cHAiKGE*ERR0RtACCfXI(28) 
JDIFENSION XNfGMa ) f X UOO).Z( 100) •PORCO ( l06) *COMLOO ) 
DIMENSION Y(lOO> 

PEAL L 

PEA-L L ENgT^ - « LA M B P ^ 

EXTERNAL PIT 

..... INFO ..... DATA IDENTIFICATION ’ - ... 

&EA.D( 5«6q 5J tl NFO( I) .Ial»l6T 

605 FORMAT (16A5) . 

WRITE (6»65D ( INFo ( I ) » T*1 ,16) , - y - ' . , , 

651 F»BM*T(lHl f ? n » t 1 6 AS /A 

read(5»6sp)aatack .lambda, length »f »aw»rw 

652 FORMAT (6F12 *6 ) 

..... HEAD No. OF KNcTS* NO. OF ROTNT&r X CO-ORD, Y CO-ORD 
READ(5»6i0)NCKN0T.LX, (X(I) .PORCD(I) #I»1»LX) 

610 FORMAT (2I4»/ (2F 12,8) ) 

* * * *L X 12 a IABS^NOKNO t! REAn lN - KW0T "^ CSITt0JVS 
1F(NCKNOT_.6T,0 )REaD(5,601 > (XI OJ) , J»1 ,LXI2) 


»• ELLlPSoIC PARAMETERS 
PI**,6*ATAN (1.0) 


RTCD*180.0/PI 

aatack»aatack«dtor 

FTA »F*TAN(AATACK) 
COEFN»4.6*F/PI 
COEFP»«4, o # F/P I 


... calculate cdn»zhat 

... GET SPLINE X CO ORO XX ( f ) i Y CO ORD U ( I ) 

CO 1 I«1.LX 
Z (I)aX(I) 

CON ( I ) «COEF l*PORCD ( I ) 

Um*CQNL(4J- 

XX(I)«Z(I) 

CALL SPLINEB (NOKNOT) 

«_^„T€nPORaRT -OE 8 UGITTNG DATA plot Y VS. X 
wRITE( 6 . 6 ?) 

DO 3 I» 1 «?1 
X (I)».05«U--U 
Y ( I ) aFIT ( X ( I ) ) 

WRITE (6*61 > X (I) .Yd) 

FORMA T(F i?.6, 4 X 1 F?2. 61 
FORMAT (lHl» 6 X«Z*nX*CDN(Z)*) 

CNIaCAORE(FlT»0.6. 1 • 0 . • 0 1 1 . 6 1 1 3 ♦ ERR * IFLAG) 

CN«CCEFN*CM 

WRITE (6»60)CN»Cni,ERR,IFLAG 

FORMAT(/////« 0N»*Fl2.6,/* CN!a«F12.6»5X«ERR0R*«Fi2, 

15X*lFLAGa*I2) 

DO 2 lal.LX 

CDN ( I) ■ <Z ( I ) *RZRO (Z ( I ) iLeNGTH.RW) *0RZR0 (Z ( I ) . LENGTH. RW) / 

XX ( I ) aZ ( I ) 
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2 

X • • 
4 

-63. 

65 


U ( I ) sCDN ( I ) 

CALL SPLlNEB (NOK noT) 

^ ifjj g ocakB qaJa. spjlihz r vs * 

PRITl»( 6 * 63 > 

DO 4 1*1*21 

X CI) «» 05* U-l ) 

Y(1)«FIT(X(I)) 

VRITE(6«6i)A(I)*V(I> 

FORM A T < 1 h 1 * 6 * • 2 *4 ^x* < ,5-2) CDNA)- 

CM I*C ADRg (FIT »0*5«1*6* *01 * »6l »3 *ERR * I FLAG) 

CM*COEFM«cFI*LAM0oa*CN 

IAR LTE C6 . 65 » CK * CM 1 , ERR * I Fl. AQ 


FORMAT (/////* 
15X«IFLAG.*I2) 
-CNC 


AOYNF 

AOYNF 

AOYNF 

AOYNF 

AOYNF 

ADYNF 

AOYNF 

AOYNF 

AOYNF 

AOYNF 

AOYNF 

AOYNF 


••••• CM**F12,6*/ # 


CM!**F12.6»5X*ERROR**Fl2«8* AOYNF 

AOYNF 

AOYNF 


59 

60 
61 
62 
63 
AA 

65 

66 
j62 
68 
69 
TQ_ 

fi 

72 

73 
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1 


3 

4 


►UNCTION FIT (X) 

COFMCN/lNPtT/LX»XK(lSrt) »u<100) . JAD0*A00XI <2«) tVOOE 
CQJ'MCN/OuTPUTyU ERBORtrOD^ *l£ tU-lAO-UJC It t2 81 *£0£FL-t2T-*4lA 

* VOBnt (?»*2 > »knot*lfax»interv 

COFMCN/OTHER/LXI,LXIi,tXl2,O.ChANSE»ERflOR«ACC*Xl<?8) 
I«LXI? 

A«X-xni) 

IF (A)2»2*4 
I»I~1 
IF( I) 3*3» 1 
I»1 

FlT«COEFt (I »i > (COFFL(I»2) >A« (COEFUI .3) >A#COEFL (UaXU 

RETURN 

ENC 


FIT 1 

FIT 2 

FIT 3 

FIT 4 

FIT 5 

FIT & 

FIT 7 

FIT 8 

FiT « 

FIT 10 

FIT Ji 

FLT 12 

FIT 13 

FIT 14 


i 
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APPENDIX IV 


SAMPLE CASE 
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SAMPLE 


FUNCTION RZERO 
(INPUT BODY GEOMETRY) 



FUNCTION RZERUT7STARI 

RZERO 

I 


REAL LN 

RZERO 

2 


D=4 .7 

RZERO 

3 


tn=iwi 

“RZERO 

TT 


R=4 3.475 

RZERO 

5 


IF(ZSTAR.GE.LN) GO TO 1 

RZERO 

6 


R7ERO=SQRT(R**2-tZSTAR-LN>**2) -(R-0/2.0) 

RZERO 

T 


GO TO 2 

RZERO 

8 

1 

R7ERO*D/2.0 

RZERO 

9 

r 

CONTINUc 

RZERO 

ru 


PET URN 

RZERO 

11 


ENTRY ORZERO 

RZERO 

12 


IF( ZSTAR.GE.LN) GO TO 3 

RZERO 

IT 


RZiRO=<LN-ZSTAR)/SORTCR*»2-(Z3TAR-LN)**2) 

RZERO 

14 


GO TO 4 

RZERO 

15 

it 

RZET«3r(r. 0 

-R7ER0 

T6 

k 

CONTINUE 

RZERO 

17 


RET URN 

RZERO 

18 


END 

RZERO 

19 
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'VCF "SAMPLE TNPVT 

CASE OGIVE CYLINDER ... ANGLE OF ATTACK (15 DEG) 


15.0 

n25 

39 

3 4 5 5 


***** VCF 

4725600.0 
•Ob 

90.0 


SAMPLE 

50.47* 

r6T 

1.0 


OUTPUT 


***** 


CAR 6 l 
CARD 2 

CARD 4 
CARD 5 
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— VCF— SAMPLE — OUTPUT 




80nY GEOMETRY (DIMENSIONAL LENGTH* 50*478) 


ZSTAR 

R2E«0( ZSTAR) 

n. oooo 

n.0000 

2. 5239 

. 7805 

5.C47B 

1,3972 

7,5717 

1.8571 

40*0956 

-2.1652 

1?, 6195 

2.32A8 

15.1434 

2.3500 

47.6673 

2.3500 

20.1912 

2.3500 

22.7151 

2.3500 

-25*2399 

-2.3500- 

27.7629 

2.3500 

3n.2S68 

2.3500 

-32,8107 

-2.3500 

35.3346 

2.3500 

37.8585 

2.3500 

-4**3824 

-2r3SOO- 

42.9063 

2.3500 

45.4302 

2.3500 

-47^9541 

-2.3500- 


-fyMA **-4*4006 
AW* 2.3500 
**10*7400 
-$*^3494 


ANGLE— OF - ATTACK*- & e GRE£S- 

30S REYNOLDS NO.* 4725600*00 
2DLS REYNOLDS NC.« 56940*19 

SOLS PARAMETERS' 

DEL T a .125 - 

RCa- .050 . 

SIGMA* .600 


PROGRAM control 

KFINALb 39 
-TF INAL* 00^0- 
ZF INAL* 1 .000 
LR* 3 

LW* -4 

LEVEL* 5 
KHLKa 9 
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NCYCLE 


R* (RA 0 ) & 
<DEG)r* 

D.oiino 

• 1 4 0 '0 0 
.7*rnii 
.4?ono 

• 56 n o o 
.mono 

.84000 
.98000 
1.12000 
1.26000 
1 .40000 
1 .54000 
1 .65000 
1.82000 

1 .96000 
2.100 00 
2.24000 
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1.6579 5 

1.72462 

1.7740 0 

1.78162 

1.78344 

1.79444 

1.79958 

1.80384 

1.00719 

1.80957 

1.61095 

1.81126 

6.72000 

4.6*795 

1 .72462 

1. 7740 0 

1.78162 

1. 78844' 

1.79444 

1.79958 

1.80384 

1.80719 

1.80957 

1.81095 

1.01126 

6.86000 

1.65795 

1.7246? 

1.77400 

1.7816? 

1.78844 

li 79441 

1.79958 

1.80384 

1.80719 

1.80957 

1.31095 

1.31126 

7.00000 

1.65795 

1.72462 

1.77400 

1.7816? 

1.76844 

1.79444 

1.79958 

1.80384 

1.80719 

1.80957 

1.81095 

1.81126 
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NCTCLE 

7 

7 

7 

R+ (RAD If* 

1.3962 6 

1 . 4137 ? 

1.43117 

(OEG)r* 

80.00100 

81.00000 

82. 00000 

0.00000 

0.0000 0 

0.00000 

0.00000 

* 140 00 

.1698 7 

.15823 

• 14516 

.28000 

‘ .34176 

.32100 

.29758 

.42000 

.51304 

.48554 

.45437 

•56000 

.68036 

.64835 

.61136 

.70000 

.6 403 9 

.80582 

.76619 

.84000 

.'9901 ? 

.95471 

.91394 

.98000 

1 . 1272 3 

1.09237 

1.05186 

1.12000 

1.25013 

1.21693 

1 . 1*803 

1.26000 

1.3 580 3 

1.32728 

1.29993 

1.40000 

1.4509 5 

1.42396 

1.30989 

1.54000 

1.5291 2 

1.50454 

1.47491 

1 .68 000 

1.5938 3 

1.57252 

1.54653 

1.82000 

1.64631 

1.62816 

1.60572 

1.96000 

1.6880 6 

1.67283 

1.65372 

2.10000 

1.72066 

1.70804 

1.69194 

2.24000 

1.74564 

1.73528 

1.72181 

2 . 3 aono 

1 . 7644.3 

1.75597 

1.74475 

2.52000 

1.7 783 0 

1.77141 

1.76204 

2.66000 

1.78836 

t .78272 

1.77485 

2.80000 

1.7955 2 

1.79085 

1.78418 

2.94000 

1. 8 P 05 2 

1.79660 

1 . 79085 

3.08300 

1.80395 

1.80060 

1.79554 

3.22003 

1.8062 7 

1 . 8033 ? 

1.79877 

3.36000 

1 . 8978 0 

1.80514 

1.80097 

3.500 00 

1 . 8083 0 

1.80635 

1.80244 

3.64000 

1.80947 

1 . 8071 ? 

1.80340 

3.78000 

1.89993 

1 . 8076 ? 

1 . 89402 

7.92000 

1.81008 

1.80792 

1.80441 

4.06000 

1.81022 

1.80811 

a . *11465 

4.20000 

1.81031 

1.80823 

1.80480 

4.34000 

1.81036 

1.80829 

1.81499 

' 4.460710 

1 . 81039 

1.80833 

1.90494 

4.62030 

1.8 1041 

1.80836 

1.60498 

4.76000 

1 . 8104 ? 

1.80337 

1.80499 

4.90000 

1 . 8104 ? 

1.80837 

1.80500 

5.04000 

1.81043 

1.80839 

1.8050 1 

5.18000 

1.81043 

1.80839 

1.80501 

5.32003 

1.8 1043 

1.90839 

1.8050 1 

5.46000 

1.81043 

1.80833 

1.8959 1 

5.60000 

1.61043 

1.80839 

1.80501 

5 .74000 

1.81043 

1.80839 

1.80501 

5.88000 

1.81043 

1.80839 

1.80501 

6.02000 

1.81043 

1.80838 

1.80501 

6.16000 

1.81043 

1.80839 

1.80591 

6.30000 

1.81043 

1.80039 

1.80501 

l__i 6.44000 

1.81043 

1.80833 

1.80501 

£ 6.58000 

1.81043 

1.80835 

1.8050 1 

6.72000 

1.61043 

1.00838 

1.80501 

6.86090 

1.81043 

1.60839 

1.80501 

7.00000 

1.81043 

1.60839 

1.80591 


8 

6 

9 

in 

1.44862 

1.46608 

1.48353 

1.50098 

83.00000 

84.00000 

85.00000 

86. 00000 

0.00000 

0. 00000 

0.00000 

0. 00100 

.13024 

.11286 

.09190 

. 06510 

. 27.073 

.23926 

.20107 

. 1517 t 

•41846 

.37613 

.32438 

.25681 

•56958 

.51943 

.45766 

. 37613 

.7 2000 

• 66485 

.59639 

.50507 

.96590 

♦ 808 ?6 

♦73615 

.63897 

1 .0 0400 

•94604 

.87295 

.77348 

1.13173 

1.07525 

1.00344 

♦ 9 C 477 

1.24732 

1.19370 

1.12498 

1. 02967 

1.34976 

1.30000 

1.23572 

1.14576 

1.43871 

1.39345 

1.33451 

1. 25132 

1.51445 

1.47400 

1.42090 

1. 34536 

1.57773 

1.54212 

1.49501 

1 . 42751 

1.62961 

1.59865 

1.55741 

1. 49793 

1.67137 

1.64473 

1.60900 

1. 55722 

1.70439 

1.68162 

1.65090 

1.60624 

1.73003 

1.71063 

1. 68434 

1. 64608 

1.74955 

1.73305 

1.71058 

1.67792 

1.76426 

1.75009 

1.7308 2 

1 . 70293 

1.77506 

1.76281 

1. 74617 

1.72227 

1.78289 

1.77216 

1.75762 

1.73697 

1.78847 

1.77391 

1.76603 

1. 7 4797 

1.79237 

1.76370 

1.77210 

1. 75607 

1.79505 

1.76705 

1.77641 

1. 76195 

1.79687 

1.76935 

1.77942 

..76614 

1.79808 

1.79091 

1.78150 

1.76908 

1.79887 

1.79194 

1.78290 

1. 77112 

1.79938 

1.79262 

1.78384 

1.77251 

1.79970 

1.79306 

1.78445 

1.77344 

1.79990 

1.79333 

1.78485 

1.77405 

1.80002 

1.79350 

1.78510 

1. 77445 

1 .8 0009 

1.79361 

1.78526 

1.77471 

1.80014 

1.79367 

1.78536 

1.77487 

1.80016 

1.79371 

1.78541 

1 . 77497 

1 . 8001 B 

1.79373 

1.70545 

1.77504 

1.80019 

1.79374 

1.78547 

1.77507 

1.80019 

1.79375 

1.78548 

..77510 

1.80019 

1.79376 

1.78549 

1.77511 

1.80019 

1.79376 

1.78549 

1.77512 

1.80019 

1.79376 

1.78550 

1. 77512 

1.80020 

1.79376 

1.78550 

1.77512 

1.80020 

1.79376 

1.78550 

1. 77512 

1.80020 

1.79376 

1.78550 

1.77513 

1.80020 

1.79376 

1.78559 

1. 77513 

1.80020 

1.79376 

1 .7855 p 

1.77513 

1.60020 

1.79376 

1.78550 

1. 77513 

1.60020 

1.79376 

1.70550 

1.77513 

1.80020 

1.79376 

1.78550 

1.77513 

1.80020 

1.79376 

1.78550 

1.77513 

1.80020 

1.79176 

1 . 7855 G 

li '77513 


OGAMMA* 1 #55279 5 SMALL** .035059 


12 


1.51844 

87*00000 

0.00000 

.02541 

.07719 

.15256 

.24779 

.35858 

.48030 

•60838 

.73850 

.86679 

.99000 

1.10556 

1.21158 

1.30687 

1.39066 

1.46353 

1.52527 

1.57683 

1.61915 

1.65332 

1.68046 

1.70167 

1.71799 

1.73036 

1.73958 

1.74635 

1.75125 

1.75475 

1.75720 

1.75890 

1.76006 

1.76084 

1.76136 

1.76169 

1.76191 

1.76205 

1.76214 

1.76219 

1.76222 

1.76224 

1.76225 

1.76226 

1.76226 

1.76227 

1.76227 

1.76227 

1.76227 

1.76227 

1.76227 

1.76227 
T. 76227 “ 



"TO* BOUNDARY LAYER 


POINT VORTEX LOCATIONS 


80TTOH BOUNDARY LAYER 


A 

K 

X (A) 

Y C A) 

XOOTCA) 

YOOT(A) 

GAMMA (A ) 

XBCA) 

Y B (A) 

XOOTB(A) 

YOOTE ( A) 

GMA9 (A) 

1 

39 

-1.470 798 

.387896 

-•084505 

-.001953 

. 017547 

-1.470798 

-.387896 

-. 094505 

. 001953 

-.017547 

2 

39 

-1 . 478 492 

.562271 

-•400360 

-. 037539 

.037135 

-1.478492 

-.562271 

-.410360 

.037539 

-.037125 

3 

39 

-1.374 651 

.513777 

-.274386 

- • 037525 

. 061020 

-1.374651 

-.513777 

-.274366 

. 037525 

-.061020 

A 

39 

-1.204 024 

.592420 

-•283578 

.054769 

.072364 

-1.204024 

-.592420 

-.293578 

-.054769 

-.072364 

5 

39 

-1.250 174 

.423280 

-•092518 

. 084677 

.084417 

-1.250174 

-.423260 

-.092518 

-.084677 

- .0944! 7 

6 

39 

-1.049 625 

.658744 

-.317442 

• 186665 

. 080703 

-1.049625 

-.658744 

-.317442 

-.186665 

-. 080703 

7 

39 

-.897 825 

.456571 

.231030 

.491555 

, 095220 

-.897825 

-.456571 

.231030 

-.491555 

-. 035220 

8 

39 

-1.173107 

.302748 

.129747 

.263879 

.106676 

-1.173107 

-.302748 

. 179747 

- . 263379 

-.106576 

9 

39 

-1 .011 672 

.495365 

-•028465 

.268545 

• 102046 

-1.011672 

-.495365 

-.028465 

-.26*545 

-.102040 

ID 

39 

-.915831 

.436608 

.2373 72 

>536720 

.115301 

* .915831 

-.436608 

.237372 

-.535720 

-.115301 

11 

39 

-1.007 367 

.195213 

.115211 

.471943 

.124202 

-1.03736 7 

-.195213 

. 115211 

-.471943 

-.124202 

12 

39 

-t.673 170 

.311740 

-.007193 

-.031816 

. 131124 

-1.673170 

-.311740 

-.007193 

.031816 

-.131174 

13 

79 

-1.094 772 

.049451 

.405832 

.028246 

.126061 

-1.094772 ^ 

-.049451 

.405832 

-.028246 

-.126061 

14 

39 

-1 . 499.694 

.161685 

.39259? 

.037173 

.134868 

-1.499694 

-.161685 

.39 2592 

-.037173 

-.134668 

15 

79 

-1.319 320 

.198246 

• 3172 74 

. 082329 

.129896 

-1.319320 

-.19824.6 

.317274 

-.082329 

-.179698 

16 

39 

-t;607 710 

.030250 

1.050 349 

-.005364 

. 127849 

-1.607210 

-.030250 

1.050349 

.005364 

-.127649 

17 

39 

-2.076 149 

.255191 

-.185664. 

-.474283 

• 135813 

-2.076149 

-.255191 

-.135664 

.474293 

-.135613 

18 

39 

-1.710 aid 

.148758 

•450861 

-.114611 

. 131037 

-1.710810 

-.148758 

. 450361 

.114611 

-.131037 

19 

39 

-1.983 040 

.186633 

.276527 

-.0988 28 

.129110 

-1.983040 

-.186633 

. 276527 

. 093328 

-.179110 

28 

39 

-2.204 532 

.175398 

.014800 

-.275954 

.127702 

-2.204532 

-.125398 

. 014800 

. 275954 

-.177702 

?1 

39 

'1. 624 535 

.627607 

-.481717 

-.082781 

.134314 

-1.624535 

-.627607 

-.431717 

.032731 

-.134314 

27 

39 

-1.795 20 4 

•452980 

-.345550 

-.150479 

.129791 

-1 . 795804 

-.462980 

-.345550 

.150479 

-.129791 

23 

39 

-1.940 674 

.367292 

-.170558 

-. 338 341 

. .128055 

-1.940624 

-.367292 

-.170558 

.333341 

-.128055 

24 

39 

-1.961811 

.491517 

-.641739 

-.599320 

.126807 

-1.961811 

-.481517 

-.6*1739 

•593320 

-.126607 

25 

39 

-1.864 390 

.601270 

-.847009 

-.472699 

.125738 

-1.864390 

-.601270 

-.647009 

.472699 

-.175738 

26 

39 

-1.666 043 

.723831 

-.902404 

-.217858 

.124786 

-1.666043 

- • 72 3P 31 

-.902404 

.217958 

-.124796 

27 

39 

-1.728 547 

.794835 

-1.210554 

-.499095 

.123862 

-1.728547 

-.794835 

-1.210554 

.499095 

-.173662 

28 

39 

-1.294 580 

.767692 

-.569317 

-. 130324 

.124797 

-1.294580 

-.767692 

-.569317 

.130324 

. 174797 

29 

39 

-1.398 426 

.819677 

-.948762 

-.372662 

.123000 

-1.398426 

-.619677 

-.948762 

.372662 

-.123000 

38 

39 

-1.221 233 

.865369 

-.945012 

-.188080 

.121990 

-1.221233 

-.865369 

-.945012 

.189030 

-.121590 

31 

39 

-1.127 894 

.909917 

-1.034864 

-.050010 

.121092 

-1.127894 

-.909917 

-1.034864 

. 050010 

-.121092 

32 

39 

-.970 191 

.899408 

-.728856 

-.174231 

.122041 

-.970191 

-.899408 

-.728856 

.174231 

-.122041 

33 

39 

-.880 088 

.931829 

-.855026 

-.078367 

• 120286 

-.esooes 

-.931829 

-.855026 

.079367 

-.120286 

34 

39 

-.769 794 

.949858 

-.836941 

-.104666 

.119314 

-.769794 

-.949858 

-.836941 

.10*666 

-.119314 

35 

79 

-.654144 

.970624 

-.894004 

-.135379 

.118474 

-.654144 

-.970624 

-.89*004 

.135379 

-.118474 

36 

39 

-.523 922 

.997195 

-1.025793 

180170 

.117752 

-.523922 

-.997195 

-1. 025793 

.180170 

-.117752 

37 

39 

-.353272 

1.030128 

-1.257200 

-.240873 

.118833 

-.353272 

-1.030128 

-1.257200 

.240873 

-.118633 

38 

39 

-.159 547 

1.048199 

-1.529307 

-.134673 

.117236 

-.159547 

-1.048199 

-1.529307 

.134673 

-.117236 

39 

39 

.054 171 

1.033641 

-1.704354 

•115828 

•116460 

.054171 

-1.033641 

-1.704354 

-.115828 

-.116460 




TOP REAR SHEAR IAYER 




BOTTOM 

REAR SHEAR 

L7YER 


A 

K 

XRTC A) 

YRT (A) 

XROOT(A) 

YROOT(A) 

GMRT(A>; 

XR3 (A) 

YRBCA) XROOTB(A) YROGTB (A) GHA9 (A ) 

I 

39 

•1.391 255 

.428310 

-.060685 

-. 034127 

-. 001701 ' 

-1.391255 

-.428310 

-.060685 

, 034127 

.001701 

2 

39 

-1.366517 

.692144 

-.457523 * 

-.084011 

-.009489 

* -1.366517 

-.602144 

-.457523 

.084011 

.039489 

3 

39 

-1.445 651 

•649619 

-.541731 

-.076439 

-.020866 

-1.445651 

-.649619 

-.541731 

.076439 

.020666 

4 

39 

-.960 804 

.712634 

-.271053 

.221530 

-.012567 

-.960804 

-.712634 

-.271053 

-.221530 

.012567 

5 

39 

-.850 305 

•590171 

•030460 

•210316 

-.064597 

-.850305 

-.590171 

•030460 

-.210316 

.064597 



Potssune DISTRIBUTION 


T» S.OaTT 7hAT« .8770 AK» 


etc 

PHIV1 

PhIPT 

? <PHIT) 

0.00 

•007121 

o.ooooon 

.Ol4?4j 

10.00 

•007059 

0.00900^ 

•014119 

20.00 

•006e5l 

o.ooooon 

.013701 

30.00 

•006413 

O.nOOOOn 

.012026 

40.00 

•005566 

0*000006 

•011131 

50.00 

•00391 > 

^•AOOOOn 

.007826 

ec.oo 

•000524 

0 .cooogo 

.001048 

45.00 

-•UO240P 

O.OOOOnn 

-.004975 

70.00 

••007181 

O.OOOOOo 

-.014366 

75.00 

-•014934 

o.ooooon 

-.0?9R6e 

ec.oo 

-.028689 

0 .flOOOnn 

-.0*7779 

05.00 

-.057624 

fr.ftOQOoo 

-il!564e 

SO. 00 

-.13500? 

0*000009 

-.270016 

55.00 

-.457438 

0 .00 noo n 

-.91*075 

100.00 

-.954253 

o.noooor 

-1.9rt>499 

105.00 

-.595690 

O.OOOOon 

-1.1«1379 

lie. 00 

-.780641 

o.ooooon 

-1.561682 

116.00 

*-.673573 

"O.OOOOOn 

— 1 .3471 4> 

12C. 00 

-.730796 

0 • 0 0 0 0 0 0 

-1.461592 

125.00 

-.745331 

U.OOOOO'* 

-1.400663 

130.00 

-.758607 

O.nOOOon 

-1.517375 

135.00 

-•766324 

o.ooooon 

-1.542646 

140 .00 

' .775455 

Q.rOOOo* 

-1.5*0910 

potential vc«ie* appro* 

INVALID 

AlpHAa a 

14S. 00 

-.715A80 

0 .00 OOQn 

-1.430977 

ISO. 00 

-.543233 

o.ooooon 

-1.086447 

POTENTIAL 

VO«iE* APPROX 

INVALID 

alphas ? 

POTENTIAL 

VcRTEX APPROX 

INVALID 

ALPHAS 10 

1SS.00 

-.7S3U3 

0*000009 

-1 , 5n43?4 

uo.oe 

-^709884 

o-.(H)ooon 

-1 . 41977 e 

US. 00 

-.686461 

0*000009 

-1.372923 

POTENTIAL 

VORTEX APPROX 

INVALID 

AtPHAa }\ 

176.00 

-.TS632? 

O-.O0OOf)C 

-1.572445 

17S.OO 

-.6S2I0S 

o.ooooon 

-1.3n4209 

Uo.oo 

-.551330 

O.OOOOon 

•1.102640 


K* 39 
COPNs 

•503871 


^OSK« 

•012166 


GEK« 

-*5rl6037 


CON* 

•034568 

* 


1.0000 AKOOTs 0.0000 

THETAS* 

07-00 

PSTKSOD 

GPK 

HDHAO 

UTAn 

-.oornoo 

.014242 

.01424? 

-.ooooon 

-.115164 

-.101046 

-•09951 1 

•339359 

-.445701 

— .4370UC 

-.405947 

.667608 

-.948413 

-.935506 

-i81024l 

•973865 

-1 .554624 

-1 .545493 

-1.183916 

1 .247647 

—2.18776? 

-2.1^9436 

400915 

1.4/0939 

-2.748003 

-2.747755 

-1.3/3870 

1.657952 

-2.974429 

-2.979304 

-1.259108 

1.724624 

-3.147067 

-3.161*33 

-UQ81274 

1*773997 

-3.254856 

. -3.284724 

-.049090 

1.803«45 

-3.277652 

-3.345431 

-.579192 

1.810429 

-3vl88001 

-3*304649 

- 1 . 287 9 3? 

1.785498 

-7.890292 

-3.160308 

-.000000 

1.702447 

-2.016878 

-2.931754 

• 255519 

1.420168 

-1.044046 

-2.951*35 

.512529 

1.021291 

-1. 27r?89 

-2.46166b 

•637 127 

1.127071 

-.704720 

-2.266402 

•77515* 

.839476 

-.574024 

-1.921971 

•812260 

• 750 17? 

-.307666 

-1.764258 

I0H2129 

.550151 

-.16*166 

-1 .654H29 

#949171 

.405174 

-.077875 

-1.59*249 

1.025406 

.279060 

-.027253 

-1 . 559699 

U103015 

.165085 

-.005173 

-1.55*083 

1*1 92029 

•071922 

3 OPE RADIUS* 

t03*?9? 



-.037499 

-1 .460676 

1.203069 

-•194163 

-.2340R7 

-1.321433 

1 .144395 

-•40475< 

COPE RADIUS* 

.034997 



CORE RADIUS* 

•01*923 



-.350233 

-1.064557 

1.608956 

-.59936C 

-.424160 

—i. 844937 

W732 73- 

—651276 

-.515227 

-1.088150 

1.823813 

-.717793 

CORE RADIUSs 

.031208 



*.233699 

-1.74614* 

1-719616 

-•>03425 

-.253229 

-1.557438 

1.551512 

, -.503219 

-.000000 

-1.102640 

1.1 02640 

-^•000000 


Oi 



velocity* i.eit at theta* ?<».<> o£ 6 r£es - 

MU 6 ACKf LOln vet* -. 71 * AT THETao16<5.0 oERHEES 

1 TAN6EMIAL VELOCITY PETwEEN max vELOCtTY AMC MAX 8ACKFL0* VELOCITY* *07? AT THETA*t40.0 DEGREES 

REAM SEPARATION AK6LE*l6 t «? -CEGpeES- 


RVTX SU8RG0T IRE M 5 -TMETaSIN)* 1*1.721311 -1)00<M* — y63555J 

GAH A (M s -.02524* 

GAMA. -CHECK SUM*. -.<,5«U7 .«■ <5 tFL4G<N-4^>-a- T- 

8 EFCRE VMF I X (X (ALPHA) « Y ( ALRwA I I a ( - -*857(t6r .$0«42>- 


-VMAIX -ALPHA* I® AmGLE*- -?5»4flo734 

X* -.903573 Y» .430764 xOOT* .304025 TOOT* .637729 


AFTER VMF l X (X (ALPHA > » Y ( AtPuAI ) • i -.06597. .51048* 

ELAPSEO TIME* 44.9na0Q0 


-4 



AOYNF SAMPLE INPUT 



CASE • 

. . OGIVE CYLINDER ... 

ANGLE OF 

ATTACK (5 DEG) 




***** 

ADYNF SAMPLE CASE 

***** 


CARD 

1 

5*0 

o 

• 

o 

50 

• 478 1 

0 • 74 

2.35 2.35 

CARD 

2 

4 

16 





CA4C 


O 

• 

O 

o 

• 

o 





CARD 

4 


•096516 

9*036431 

• 181378 

1 


CARD 

5 


•163031 

6*165342 

• '3015378 



CAftt 

6 


•229547 

4*086353 

.431378 

3 


CARD 

7 


•296063 

•047975 

* 586378 

4 


CARD 

8 


• 36Z57B 

• 04 1044 

1 68 i 3 /f 

■5 


CARf 

9 


•429094 

•0431B6 

.806378 

6 


CARD 

1C 


•495610 

•055931 

•931378 

7 


CARD 

1 1 


.56212^ 

.069124 

t-rOS5i3T8 

B 


-CARO 

12 


• 62064 1 

•087352 

1 • 18137b 

9 


CARD 

13 


•695157 

• 105378 

L .306378 

10 


CARD 

14 


•761672 

•132163 

1 .431378 

ft 


-CARD- 

i 5 


•828188 

•154608 

X .566378 

12 


CARD 

16 


•894704 

•187945 

. .681378 

13 


CARD 

17 


•96T2 T9 

.222631 

“. 806378 

14 


CARD 

t& 

1 • 0 

•249663 

1 .931378 

15 


CARD 

19 

o 

• 

o 

♦125 • 3 

1 

• 0 


CARD 

20 


147 


148 


AOYNF SAMPLE OUTPUT -•••••- 


GIVEN DATA 

1 0.00900000 

0.00000000 

2 

.09651600 

•06864185 

3 

« 163031 PO 

.06202495 

% 

• 22954700 

•03104044 


•29606300 

. .00036442 

6 

•36257800 

.00031633 

T 

.42909400 

. .00032805 

8 

.49561000 

•00042486 

9 

.56712500 

•00052507 

10 

.62864100 

•00066354 

11 

.69515700 

.00080046 

12 

•76167200 

•00100393 

,13 

• 8 28 18 8 00 

•00117442 

14 

.894 70400 

•00142765 

15 

• 96121900 

•00169113 

16 

1.00000000 

•00189647 

NO. OF 

INITIAL 

KNOTS « 

ITER » 

8 



KNOTS PRIOR TO OPTIMIZATION 

0.000000 .125000 .300000 1.000000 

*** FINAL OUTPUT 


KNOTS 


CUBIC COEFFICIENTS 


XII !)-■ 


XXI 2) « 


XII 3) ■ 


XI« 4) > 


0.000000 


• 071209 


•149611 


1.000000 

• 0 ‘ 


cm 

* 

-2.892801E-14 

Cl 2) 

8 

-4 • 355484E* 00 

CC3) 

s 

1.185283E+02 

Cl 4) 

a 

■6.991980E* 02 

cm 


3*840 772E-02 

C (2) 

8 

1. 668742E+Q0 

C(3) 

8 

•3. 063995E+01 

C (41 

« 

1 • 349466E ♦ 02 

cm 

8 

6.166244E-02 

CI2) 


•4.582100E-01 

CIS) 

8 

9.812087E-01 

CI4) 

a 

*6 .308512E-01 


LEAST SQUARE ERROR ■ 
AVERAGE ERROR ■ 
MAXIMUM ERROR 


4.93376 0E-03 
3.012333E-03 
1.34961SE-02 AT- 


•296063 



&n 



APPROXIMATION AND SCALED 


DATA POINT 

APPROXI NATION 

1 

o.ooonoooi 

-.non ooooo 

2 

.09651600 

•06964165 

• 3 

".16303100 

.05597500 

4 

• 22954700.,.. 

.031 24520 

5 

• 20606301 

.01386757 

6 

.34257800 

.00271330 

7 

.47909400 

-.00331686 

8 

•49561000 

-.005 3416? 

9 

.56212500 

-.004 47494 

.0 

.67864100 

-. 001 33070 

11 

.69515700 

.00147717 

12 

.76167200 

.004 33472 

13 

•82818800 

•00562612 

14 

.89470400 

.00424339 

15 

.96121900' 

-.00093329" 

16 

1.00000000 

-.00614404 


Z 

CON (7) 

o.n onno o 

-.0 ooooo 

.050000 

-.008853 

"i 190900 

. 070443 

.1 5nnoo 

.061776 

.20000 0 

.041757 

• 25nn«n 

• n 7 P 1 7 0 

.300000 

.01 3040 

,35000 0 

.004395 

.4 0 00 00 

-.001239 

,45000 0 

-.004332 

.500000 

-.005361 

.550000 

-.004798 

.600000 

-.00.3116 

.650000 

000797 

.700000 

.001714 


.7, *5000 0 .003915 - 

.eonooo . 00534 ? 

•95nnoo . 0 0 55? 3 ■ 

.900000 .003985 

.950000 .000?53 

. “liooonnn *.006144 

bp g,step 0 . 1 . oonooonnEton 1 

BEG, STEP c .00009 080E-01 5.00000000^-01 1 

■«? CONVERGENCE AT ROW '3 

INT £G D AL IS T. i»61 73? 1 3E-04 * ERROR 2. 1 1407345E-04 FROM T(3,2> 
.BEG, STEP 0. 5, OOOnooOOE-Ol 1 

"BEG, STEP 7.500010102-01 2, ,5 0000 OOOE-01 "1" 

HZ CONVERGENCE AT ROW 3 

INTEGRAL IS 1.039 65762E-03, E*POR 9. 0 3363896E-05 FROM T(3,2) 
BEG, STEP 8. 2„50000000e-01 1 

M2 CONVERGENCE AT ROM 5 

INTEGRAL IS 8 . nqn 74826E-03, ERROR 8. 0 7258925 E-05‘ FROM T(F.2! 


CN» ♦ 129465 

ZHl^r .009466 ERRORS TU 00:37? 47^ IFtrAG^ I 


ERROR CURVE 


DEVIATION X 10Ef3 
.000000 
. n o o o o ft 

“E. 049947 
-.204763 
-13.49f.l48 
-7.396967 
3.644905 
5.766478 
5.000012 
2.494236 
-.676710 
3.330796 
-4.453697 
* ?• 815733 
~Z* 624420 
8.040511 



GIVEN DATA 

M 


» 1 

o.oconoooo 

OiOOOOOOOO 

2 

.09651600 

.00707654 


,16303100 

« 01043533 

\ 

r? 7954700 

^007?053r 

5 

•796P63P0 

• 00010709 

6 

• 367578 00 

• 00011470 

7‘ 

,47909400 

00014076 

A 

.49561000 

. 00071056 

9 

.56717500 

.00029516 

to- 

64100- 

vuoo4m:r 

il 

.69515700 

• 00055645 

1? 

•76167700 

.00076466 

13 

» 8 26 18800 

."00097764 

14 

.89470400 

.00177733 

15 

.96171900 

.90167555 

16 

tTO OOOOOOO- 

rttor8964r? 

NO. OF 

INITIAL 

KNOTS « 

ITER = 

6 



KNOTS PRIOR TO OPTINTTATION 

0.089000 .071209 .149011 1.000000 

*** FINAL OUTPUT 


KNOTS 


CUBIC-COEFFICIENTS 


*Tt IV ^ 


XI f 2) * 


XI< 3) * 


XX C 91 »’ 


0 . 000000 




C(l) 

s 

-1.284775E-14 



C ( 21 

= 

-9.31497QE400 



Ct3> 

c 

'2.0&9747E + 07 



C ( 4) 

s 

•1 • 18 3289E + 03 

.071209 







cm 

=- 

•”3 iC 9 19 6 9 E - O 2 



C(2) 

= 

2.446370E+00 



C( 3) 

3 

-4.380895E+01 

j ' 


C< 41 

2 

2.525566E+02 

.129259 







C(l) 

3 

1 • 286898E- 02 



cm 

'3' 

^ST665235E-02 



C ( 31 

S 

1.733354E-01 

i- 

- 

C (4) 

?• 

**1. 033547E- fl4 


IVOO 0 000- 


LEAST SQUARE ERROR « 9. 302876E-04' ». 

AVERAGE ERROR « 6.924194E-04 

TfAXINUM ERROR » 2V69025^r-0S AT 


^Z96U6T 
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/.APPROXIMATION AND' SCALEO ERROTT CORVt 



DATA POINT 

APPROXIMATION 

DEVIATION X 10E+4 

* 

o.onnoonpo 

. -. 00000 000 

. ’.000000 

-2 

;0965l60n 

7 007 02 654". 

-7000000 

3 

.16303100 

.01013625 

3.025774 

4 

.27954700 

.00581768 

13.864436 

5 

”*2960 630 0 , 

. 00275814' 

-26.502519 

6 

.36257800 

.00077458 

■ - -6.596836 

7 

.42909400 

-.00031538 . V 

4.561377 

~8 

7495 61000' 

-7 000 69 418“ 

9i 04 7434“ 

9 

.56212500 

-.00054434 

8.. 39494 7 

10 

.62864100 

-.00004834 

4.654675 

11 

T69515700 

“.00061131' 

•* -.548631 ‘ 

17 

> 7616720 0 

.00125211 

-4.874507 

13 

.62818800 

.00169159- . 

-7.189456 

14 

789410400 

7ir01-74“72T , 

-47698974 

15 

♦96121900 

.00123654 

3.890096 

16 

1.00000000 

•00060493 

12.915449 


* 

i.5-Z)C0N 

o, ooonoo 

-.000000 

.050000 

-.091223 

7100000 - 

T00922T 

.150000 

.011145 

.200000 

, 007570 

.250000 

7004752 

.300000 

.002613 

.350000 

. 00 1076 

1407000 

T00006T 

.45000 0 

-. 00 0502 

' .500000 

-.000699 

■ .55000 0 

*-.00 0603- 

.600000 

-.000293 

.650000 

.000154 

77 0 0 0 0 0 

.00 0661” 

.750000 

.001149 

.800000 

. 001542 

.850000 

.001761 

• .900000 

. 00 1730 

.950000 

. 001270 

t.Dlfinfld: . 

7000605' 


beg,stfp o, i.oononn"OE*oo 1 

beg, step - s.ooooo nooE-oi 5.oonnnoooE-oi 1 

H? CONVERGENCE- AT ROW 3 

INTEGRAL IS 3.75214479E-04, ERROR 2. 49143177E-05 FROM TC3,2> 

beg, step n . s.oonnnnooE-oi 1 

-beg, step ~r.5ooonoonr-nt o omm ods-d i r 

H2 CON VfRG ENCE AT ROW 3 

INTEGRAL is 2.53646229E-04, ERROR 1 . 581 05198 E-05 FROM Tf3.Pl 
BEG, STEP TJ'e 2.5OOOO0OOF-O1 1 

H2 CONVERGENCE AT ROW 5 

INTEGRAL IS -4.862 22290F-03 j ERROR 1. 845618 13E-04 FROM T(5,21 


CMr . 057 890 

■XMr*~ -VTtr4?TT ERROR* 70007? 529 UPVG* I 
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